Предмет: Информатика,
автор: antohaqwe123
НАпишите программу вывода четных чисел от 2 до 100 включительно
Ответы
Автор ответа:
0
const N=99; var A: array[1..N] of integer; i:integer; begin for i:=1 to N do A[i]:=i+1; for i:=1 to N do if A[i] mod 2=0 then writeln(A[i]); end.
Автор ответа:
0
const N=99;
var A: array[1..N] of integer;
i:integer;
begin
for i:=1 to N do
A[i]:=i+1;
for i:=1 to N do
if A[i] mod 2=0 then writeln(A[i]);
end.
var A: array[1..N] of integer;
i:integer;
begin
for i:=1 to N do
A[i]:=i+1;
for i:=1 to N do
if A[i] mod 2=0 then writeln(A[i]);
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: astromen08
Предмет: Право,
автор: arcatowaanastasia
Предмет: Химия,
автор: dlyamenialubimoi