Паскаль.

1. вывести на экран все четные числа от 1 до n.

2. вывести на экран все трехзначные числа.

3. вывести на экран четырехзначные числа оканчивающийся на 7.

4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.

Question

Информатика

Павлин

11 сентября, 20:23

Паскаль.

1. вывести на экран все четные числа от 1 до n.

2. вывести на экран все трехзначные числа.

3. вывести на экран четырехзначные числа оканчивающийся на 7.

4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.

+4

Ответы (1)

Знаете ответ на вопрос?

Христофор · Answer 1

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.