Решите задачу номер 4 в Паскале. Для ввода использовать for k to do
Answers & Comments
pokemanbr
Program aaa; var n,k,z:integer; begin readln(n); write('Все числа: '); for k:=100 to 999 do if(k div 100 + k mod 100 div 10 + k mod 10 = n) then begin write(k,' '); inc(z); end; writeln; writeln('Количество данных чисел - ',z); end.
Answers & Comments
var
n,k,z:integer;
begin
readln(n);
write('Все числа: ');
for k:=100 to 999 do
if(k div 100 + k mod 100 div 10 + k mod 10 = n) then begin
write(k,' ');
inc(z);
end;
writeln;
writeln('Количество данных чисел - ',z);
end.