Написать программу в Паскале abc. вывести на экран все двузначные числа, сумма цифр которых равна заданному числу n
Answers & Comments
Provider
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ.... Поэтому припоздал....
uses Crt; var i, n, m, z1, z2 :integer;
begin ClrScr; Write (' n = '); ReadLn(n); WriteLn; if (n<0) or (n>18) then WriteLn (' None!') else begin for i:=11 to 99 do begin m:=i; z1:=m div 10; z2:=m mod 10; if (z1+z2=n) then Writeln(' m = ', m); end; end; ReadLn; end.
Answers & Comments
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.