Предмет: Информатика,
автор: chyntemirovaguldana
Напишите программу которое вычисляет и выводить сумму четных целых чисел. Пожалуйста помогите
Ответы
Автор ответа:
0
program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
Интересные вопросы
Предмет: Українська мова,
автор: aaauuhjpllll
Предмет: Математика,
автор: kazakovvovan1980vvv
Предмет: Химия,
автор: chrom000
Предмет: Алгебра,
автор: explosionbesola
Предмет: Алгебра,
автор: Nyet