Нужно сдать завтра. (циклы) на паскале 1.даны два - вопрос №24581091 от margo2200078 02.05.2023 04:44

Question

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

margo2200078 · Answer

1)Program pr;uses crt;Var i,sum:integer;BeginWriteln(Введите А);readln(a); Writeln(Введите B);readln(b); sum:=0;for i:=a to b doBeginsum:=sum+i;end;Writeln( sum= ,sum);readln;end.2)Program pr;uses crt;Var i:integer;Beginfor i:=20 to 50 doBeginif (i mod 3=0) and (i mod 5 0) thenWriteln(i);end;readln;end....