Паскаль.
1.вывести на экран все четные числа от 1 до n.
2.вывести на экран все трехзначные числа.
3.вывести на экран четырехзначные числа оканчивающийся на 7.
4.вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы
Ответ дал:
0
1)
var n,i:integer;
read(n);
for i:=1 to n do
if i mod 2=0 then writeln(i);
end.
2)var i:integer;
begin
for i:=100 to 999 do
write(i,' ');
end.
3)var i:integer;
begin
for i:=1000 to 9999 do
if i mod 10 = 7 then write(i,' ');
end.
var n,i:integer;
read(n);
for i:=1 to n do
if i mod 2=0 then writeln(i);
end.
2)var i:integer;
begin
for i:=100 to 999 do
write(i,' ');
end.
3)var i:integer;
begin
for i:=1000 to 9999 do
if i mod 10 = 7 then write(i,' ');
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад