Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal)
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal)
Гость
Ответ(ы) на вопрос:
Гостьuses crt; var i,s,a,b,c,ch,o:integer;
begin
o:=0;
writeln(' Vvedite chislo ' );
readln(ch);
for i:=100 to 999 do
begin
a:=i div 100;
b:=(i div 10) mod 10;
c:=i mod 10;
if ((a+b+c) = ch) then
begin
inc(o);
writeln(i);
end;
end;
if o = 0 then writeln('error !');
readln;
end.
Не нашли ответ?
Похожие вопросы