Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.
10-11 класс
|
Raya21rus
05 мая 2013 г., 18:12:40 (10 лет назад)
Pichkasoua
05 мая 2013 г., 20:42:30 (10 лет назад)
program xxx;
var i, s : integer;
begin
s:=0;
i:=2;
while i<=40 do
begin
s:=s+i;
i:=i+2
end;
write('сумма четных чисел =', s);
readln
end.
Ответить
Другие вопросы из категории
1. Проводятся две лотереи: "5 из 30" и "3 из 42". Сообщение о результатах какой из лотерей несет больше информации?
2. Проводится лотерея "6 из 42".
1.
Определить, какая сумма окажется на счете, если вклад
размером 1000 руб. положен под 9% годовых на 20 лет, а проценты начисляются
ежеквартально.
Читайте также
Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
Вы находитесь на странице вопроса "Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.