Напечатайте в столбик четные числа от 8 до 32 в паскале,пожалуйста помогите , очень срочно. Created by AlisaSeleznyova. informatika-ru

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

July 2022 2 9 Report

Напечатайте в столбик четные числа от 8 до 32 в паскале,пожалуйста помогите , очень срочно

ManyGames

Var i:byte;
begin
for i:=8 to 32 do begin
if (i mod 2)=0 then writeln(i);
end;
end.

4 votes Thanks 3

ManyGames Ещё один способ:

ManyGames var i:integer;
begin
i:=6;
while not(i=32) do begin i:=i+2; writeln(i); end;
end.

elizavrtatm Четные числа:
var
a, b, s: integer;
begin
read (a, b);
for i := a to b do
if i mod 2=0 then
write (i, ` `);
end.

3 votes Thanks 1

ManyGames Ееее бооой у меня правильнее)))

ManyGames Мой алгоритм меньше памяти засоряет

ManyGames Да, твоя прога не в столбик числа записывает