Ответы
Ответ дал:
0
uses crt;
var
i, n, count: longint;
begin
clrscr;
writeln('Zadaite chislo n');
readln(n);
count := 0;
for i := 100 to 999 do
if i div 100 + i div 10 mod 10 + i mod 10 = n then
begin
writeln(i,' ');
count:=count + 1;
end;
writeln(count);
readln;
end.
var
i, n, count: longint;
begin
clrscr;
writeln('Zadaite chislo n');
readln(n);
count := 0;
for i := 100 to 999 do
if i div 100 + i div 10 mod 10 + i mod 10 = n then
begin
writeln(i,' ');
count:=count + 1;
end;
writeln(count);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад