Составить программу, которая будет считывать введённое четырехзначное число. каждую цифру этого числа необходимо вывести в новой строке

141

323

Посмотреть ответы 3

Ответы на вопрос:

Sashonmillioner

Информатика

4,5(75 оценок)

// pascalabc.net begin var num: integer; while true do begin num : = readlninteger('введите 4-х значное число, num ='); if (num > 999) and (num < = 9999) then break; end; var str : = num.tostring; foreach var x in str do println(x) end.

kris406

Информатика

4,6(89 оценок)

Var a,f: integer; begin write('введите четырехзначное число: '); readln(a); f: =a div 1000; writeln(f); a: =a-1000*f; f: =a div 100; writeln(f); a: =a-100*f; f: =a div 10; writeln(f); a: =a-10*f; writeln(a); end.