Помогите пожалуйста! Буду благодарна
Вывести на экран все четные числа из промежутка от 1 до 100 в прямом и обратном порядке. (в паскаль)
Var
a:array[1..100] of integer;
i:integer;
c,e:real;
begin
for i:=1 to 100 do begin
a[i]:=i;
e:=a[i] div 2;
c:=a[i]/2;
if e=c then
write(a[i], );
end;
for i:=100 downto 1 do
begin
a[i]:=i;
e:=a[i] div 2;
c:=a[i]/2;
if e=c then
write(a[i], );
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
