Помогите, пожалуйста! Нужно сдать завтра.
Задания (циклы) на паскале
1.Даны
два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B
включительно.
2.Даны
натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но
не делятся на 5.
3.Начав
тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал
дневную норму на 10% нормы предыдущего дня.
• Какой суммарный путь пробежит спортсмен за 7 дней?
• В какой день впервые спортсмен пробежит более 20 км?
• В какой день впервые суммарный путь превысит 60 км?
Задания (циклы) на паскале
1.Даны
два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B
включительно.
2.Даны
натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но
не делятся на 5.
3.Начав
тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал
дневную норму на 10% нормы предыдущего дня.
• Какой суммарный путь пробежит спортсмен за 7 дней?
• В какой день впервые спортсмен пробежит более 20 км?
• В какой день впервые суммарный путь превысит 60 км?
Answers & Comments
Program pr;
uses crt;
Var i,sum:integer;
Begin
Writeln(Введите А);
readln(a);
Writeln(Введите B);
readln(b);
sum:=0;
for i:=a to b do
Begin
sum:=sum+i;
end;
Writeln('sum=',sum);
readln;
end.
2)
Program pr;
uses crt;
Var i:integer;
Begin
for i:=20 to 50 do
Begin
if (i mod 3=0) and (i mod 5<>0) then
Writeln(i);
end;
readln;
end.