сервис вопросов и ответовПОМОГИТЕ РЕШИТЬ ДО ЗАВТРА:
10-11 класс|
|
Написать программы и блок-схемы:
1). для различных вводимых с клавиатуры целых чисел, найдите сумму положительных чисел
2). дано положительное число А. найдите среди чисел 1, 1 + 1/2 + 1/3, ... первое, больше А
Katyabrel
31 марта 2017 г., 1:08:37 (7 лет назад)
Клубничка1234
31 марта 2017 г., 2:13:43 (7 лет назад)
блок смемы не умею
var i:integer
s,n:real;
Begin
repeat
read(n);
if n>0 then s:=s+n
until n=0;
writeln(s);
End.
var a,s:real;
i:integer;
Begin
read(a);
repeat
i:=i+1;
s:=s+1/i
until s>a;
writeln(i,s);
End.
Ответить
Другие вопросы из категории
Помогите пожалуйста написать программу в КуМире.
Написать программу с клавиатуры вводится пять чисел.Нужно определить сколько четных и сколько не четных.
Читайте также
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
Помогите решить на паскале
______________________________________
В сказочном Солнечном городе живут трое братьев: Ниф-Ниф, Наф-Наф, и Нуф-Нуф. Известно, что у каждого из них есть какое-то количество денег. Так случилось, что после физкультуры они перепутали пиджаки, в которых и лежали деньги. Однако зная о возможной путанице родители пришили бирки с именами. Помогите определить сколько же денег было до физкультуры у братьев, зная что Нуф-Нуф пришел домой в пиджаке Ниф-Нифа, а Наф-Наф в пиджаке Нуф-Нуфа. Входные данные:
В единственной строке входного потока, через пробел записано три числа в диапазоне от 1 до 10^9. Первое число это количество денег, которое обнаружил Ниф-Ниф в карманах придя домой. Второе - сколько стало у Наф-Нафа. И третье сколько принес домой Нуф-Нуф.
Выходные данные:В первую строку выходного потока необходимо вывести сколько денег было у Ниф-Нифа, во вторую - сколько у Наф-Нафа, а в третью - сколько у Нуф-Нуфа.
Пример входного файла (input.txt): 32 22 54 Пример выходного файла (output.txt): 54 32 22
Здравствуйте! Помогите решить задания! Не понимаю программу Кумир, к сожалению, завтра последняя возможность исправить оценку. заранее
спасибо
1. Напечатать числовой ряд: 1,7,13,19,25,31,……….61 с помощью цикла «пока».
2. Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «Нужно продолжить работу?», и пользователь отвечаетда/нет. Программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше.
3. Дан массив из 10-ти чётных натуральных чисел – от 2 до 20.
А) Найдите сумму элементов массива.
Б) Найдите минимальный элемент массива.
4. Дан массив из 15 подряд идущих натуральных чисел, начиная с 50.
А) Найдите произведение элементов массива.
Б) Найдите максимальный элемент массива.
Помогите решить задачку очень-очень надо:)) спасибо:* Устав от повседневных дел, Иван Петрович устроил себе отпуск - пошел на охоту. На
расстоянии N метров, его охотничья собака Гайзарда заметила зайца. Через какое время она догонит его если скорость зайца V1 м / с, а скорость собаки V2 м / с? Следует отметить, что Гайзарда бегает быстрее любого зайца.
Входные данные:
Программа на вход получает три целых числа N, V1, V2 (0 ≤ N ≤ 103, 0 <V1, V2 <20).
Выходные данные:
Программа должна вывести время за собака догонит зайца с точностью до сотых.
Вы находитесь на странице вопроса "ПОМОГИТЕ РЕШИТЬ ДО ЗАВТРА:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.