Написать программу которая бы выводила все четные числа от 1 до 10/

marschmello marschmello    1   12.07.2019 17:40    0

Ответы
gulnazka06 gulnazka06  18.09.2020 15:54
Program test;
var
i : integer;
begin
for i:=1 to 10 do
begin
if (i mod 2 = 0) then
Writeln(i);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Yulia27082017 Yulia27082017  18.09.2020 15:54
Program z8; 
Var i,p:integer; 
Begin 
p:=10; 
i:=2; 
while i<=20 do 
begin 
i:=i+p; 
end; 
writeln(i,' '); 
end. 
вот и ответ
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика