2. Определить количество трёхзначных цифр, сумма цифр которого равна заданному числу N (в паскале, Цикл со счётчиком)
2. Определить количество трёхзначных цифр, сумма цифр которого равна заданному числу N (в паскале, Цикл со счётчиком)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы