Нужно сдать завтра. (циклы) на паскале 1.даны два целых числа a и b (a < b). найти сумму всех целых чисел от a до b включительно. 2.даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5. 3.начав тренировки, спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. • какой суммарный путь пробежит спортсмен за 7 дней? • в какой день впервые спортсмен пробежит более 20 км? • в какой день впервые суммарный путь превысит 60 км?
дарья1293
3
03.06.2019 16:40
3
Другие вопросы по теме Информатика
кошка372
04.08.2019 20:40
weri8
04.08.2019 20:40
Vikadianalol
04.08.2019 20:40
данданн
06.10.2019 22:00
Ilya0902
06.10.2019 22:00
alinochkaderyu
20.10.2019 13:07
макс3104
20.10.2019 13:07
Sasha1230981
20.10.2019 13:07
Популярные вопросы
- Как решить ? иван и саша вырезали из белой бумаги четыре ёлочки...
2 - Втреугольнике abc дано: ab=21 см, угол a равен 45 градусов, угол...
1 - Сочинение по как я путешествовал на воздушном шаре...
3 - Расположите числа в порядке убывания cos 2,7; cos 0,8; cos(-0,5);...
3 - 2x(x-8)=(x+1)(2x-3) найдите корень уравнения...
1 - Сравните числа -7,6 и -7,06; -5,3 и 5,2 ; -6/7 и - 3/4 завтра контрольная...
3 - Проверочное слово к слову красивый . проверить букву а ....
3 - Нужно сделать синтаксический разбор предложения популярные книги...
3 - Обьясните тему по 7 класс разложение на множители с формул суммы...
2 - Найдите радиусы вписанной в правильный треугольник и описанной около...
3
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.