Составить программу вычисления суммы чётных чисел в диапазоне от 1 до 100.
5-9 класс
|
2+4+6+... ...+100
var s,i:integer;
begin
s:=0;
for i:=1 to 50 do
s:=s+i*2;
write(s);
end.
Другие вопросы из категории
сообщает название этого дня. Например если ввели 1 то выведется это фраза "Это понедельник! и т д
Читайте также
язык pascal abc
1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100.
2) Составьте программу вычисления произведения чисел от 1 до 10.
3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.