Напечатайте в столбик четные числа от 8 до 32 в паскале, ,

TennisDiyar TennisDiyar    3   09.09.2019 08:10    0

Ответы
esergee2012 esergee2012  07.10.2020 02:42
Var i:byte;
begin
for i:=8 to 32 do begin
if (i mod 2)=0 then writeln(i);
end;  
end.
ПОКАЗАТЬ ОТВЕТЫ
fyxfhltn fyxfhltn  07.10.2020 02:42
Четные числа:
var 
  a, b, s: integer;
begin
  read (a, b);
  for i := a to b do
  if i mod 2=0 then
    write (i, ` `);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика