В вашей деревне всего 9 домов. С номерами от 1 до 9. Председатель деревни вписывал номера домов в электронную документацию и не поставил между ними пробелы. Петух склевал клавишу пробела у него на компуктере :( Получилось одно гигантское девятизначное число.
Напишите программу, которая напечатает номер каждого дома в отдельной строке (начните с цифры единиц исходного числа).
Формат входных данных
Девятизначное целое число.
Формат выходных данных
Все цифры числа, начиная с единиц, каждое в отдельной строке.
var
n,b,s:integer;
begin
Write('Введите натуральное число и значение b: ');
Read(n,b);
if n>b then Writeln('Неверно')
else begin
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10
end;
if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
end
end.
Программа для 2.
var
k,m,n,b,s:integer;
begin
Write('Введите натуральное число и значения m,n: ');
Read(k,m,n);
if k mod n <> 0 then Writeln('Неверно')
else begin
s:=0;
while k>0 do begin
s:=s+k mod 10;
k:=k div 10
end;
if s>m then Writeln('Верно') else Writeln('Неверно')
end
end.