Информатика!Написать программу в Паскале! Задано целое положительное число N>1. Вычислить сумму четных целых чисел вдиапазоне [1..N]. Важно! Для решения задач использовать цикл с предусловием!

Информатика

Ответить

Ответы

olga0909196323

25.02.2020

var

n,s,i : integer;

begin

s:=0; i:=0;

write('N = '); read(n);

while n <> i do

begin

i:=i+1;

s:=s+i;

end;

writeln('Сумма ', n, ' чисел = ',s);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Информатика!Написать программу в Паскале! Задано целое положительное число N>1. Вычислить сумму четных целых чисел вдиапазоне [1..N]. Важно! Для решения задач использовать цикл с предусловием!