Составить программу нахождения чётных чисел от одного до ста. (2+4+6+...+100)
5-9 класс
|
program summa;
uses crt;
var a,i,s: integer;
begin
s=0
a=0
i=2
while a<=100 do
begin
s:=s+a;
a:=a+i;
end;
write('s= ',s);
readln;
end.
программа составлена на паскале.
Другие вопросы из категории
Березовских платила квартплату 80 рублей в месяц. Выведите сумму, которую они платят сейчас. Необходимые исходные данные введите с клавиатуры. Ответ прикрепите в виде файла в среде PascalABC.
Читайте также
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.