Помогите, пожалуйста! Нужно сдать завтра.Задания (циклы) ** паскале1.Даны два целых числа...

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.