сервис вопросов и ответовсоставить программу вычисления сумму четных чисел от 2 до n
5-9 класс|
|
BuzukAleksandr
28 апр. 2014 г., 8:43:22 (10 лет назад)
Akhmetshinaale
28 апр. 2014 г., 9:43:55 (10 лет назад)
Program Summa
Uses Crt;
var i,n,s:longint;
begin
clrscr;
write('Введите n: ');
readln(n);
s:=0;
for i:=2 to n do
if (i mod 2)=0 then s:=s+i;
writeln('Сумма всех чётных от 2 до n: ',s);
readkey
end.
Vadiko
28 апр. 2014 г., 12:03:35 (10 лет назад)
program s;
uses crt;
var n,i,sum:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=2 to n do
begin
if not odd(i) then
s:=s+i;
end;
writeln(s);
readln;
end.
Ответить
Другие вопросы из категории
Информацию,достаточную для решения поставленной задачи,называют:
а)полезной
б)полной
в)актуальной
г)понятной
Читайте также
1)Составить программу нахождения суммы квадратов чисел от 25 до 125.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если
n-нечетное. Использовать цикл WHILE
Вы находитесь на странице вопроса "составить программу вычисления сумму четных чисел от 2 до n", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.