Решите задачу номер 4 в Паскале. Для ввода использовать for k to do
Answers & Comments
throwGame
Var n, i, k:integer; begin; readln(n); for i:=100 to 999 do if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin; writeln(i); k:=k+1; end; writeln(k); end.
Answers & Comments
begin;
readln(n);
for i:=100 to 999 do
if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin;
writeln(i);
k:=k+1;
end;
writeln(k);
end.