Оператор варианта. на паскале срочно. 1. Вывести нечетные целые числа от 1 до 20 2.Вывести четные целые числа от 15 до 40
Оператор варианта. на паскале срочно.
1. Вывести нечетные целые числа от 1 до 20
2.Вывести четные целые числа от 15
до 40
Гость
Ответ(ы) на вопрос:
Гость1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, ' ');
end;
end.
2/
var i:integer;begin
for i:=15 to 40 do begin
if i mod 2=0 then write(i,' ');
end;
end.
Гостьprogram pr; var i:integer; begin for i:=1 to 20 do if (i mod 2=1) then write(i,' '); writeln(); for i:=15 to 40 do if (i mod 2=0) then write(i,' '); end.
Не нашли ответ?
Похожие вопросы