Нужно сдать завтра. (циклы) на паскале 1.даны два целых числа a и b (a < b). найти сумму всех целых чисел от a до b включительно. 2.даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5. 3.начав тренировки, спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. • какой суммарный путь пробежит спортсмен за 7 дней? • в какой день впервые спортсмен пробежит более 20 км? • в какой день впервые суммарный путь превысит 60 км?
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.