2. определить количество трёхзначных цифр, сумма цифр которого равна заданному числу n (в паскале, цикл со счётчиком)

Llirika Llirika    2   17.05.2019 21:20    2

Ответы
mrnaruto004ovx0o3 mrnaruto004ovx0o3  11.06.2020 02:45

program asd;
var x,k,n:integer;
begin
readln (n);
for x:=100 to 999 do begin
if (x div 100 + x div 10 mod 10 + x mod 10 = n) then
k:=k+1;
end;
writeln (k);
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика