Паскаль.1.вывести на экран все четные числа от 1 до n.2.вывести на экран все трехзначные числа.3.вывести на экран четырехзначные числа оканчивающийся на 7.4.вывести на экран все трехзначные и двухзначные числа сумма цифр которы...

Паскаль. 1.вывести на экран все четные числа от 1 до n. 2.вывести на экран все трехзначные числа. 3.вывести на экран четырехзначные числа оканчивающийся на 7. 4.вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы