Question

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

Answer 1

1)

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.