Предмет: Информатика,
автор: Tvoyzay
вычислить сумму всех четных натуральных чисел меньше данного n . задачвычислить сумму всех четных натуральных чисел меньше данного n . задача по информатике
Ответы
Автор ответа:
0
var a,n,s:integer;
begin
write('введите число n ');
readln(n);
s:=0;
for a:=1 to n do
if (a<n) and (a mod 2 =0) then s:=s+a;
write(s);
end.
begin
write('введите число n ');
readln(n);
s:=0;
for a:=1 to n do
if (a<n) and (a mod 2 =0) then s:=s+a;
write(s);
end.
Интересные вопросы
Предмет: Математика,
автор: killuyanigger228
Предмет: Математика,
автор: tuMaggz
Предмет: Русский язык,
автор: Blab928237347
Предмет: Алгебра,
автор: Overes
Предмет: Математика,
автор: lesya2381