Задача 20.
Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18).
{Обозначим: k - это просматриваемое число; p1 - это первая цифра числа k, р2 - это вторая цифра числа k; s - это сумма цифр данного числа k. Число k будем выписывать только в том случае, когда сумма p1 и р2 будет равна s.}
program prim2;
uses crt;
var k,n,p1,p2,s:integer;
begin
clrscr;
{Задаем целое число.}
writeln(' целое число n=');
readln(n);
{Организовываем цикл с параметром от 10 до 99.}
for k:=10 to 99 do
begin
{Выделяем первую цифру.}
p1:=k div 10;
{Выделяем вторую цифру.}
р2:=к mod 10;
{Находим сумму цифр.}
s:=p1+p2;
{Если сумма цифр равна заданному числу N, то выводим К.}
if s=n then writeln('k= ',k);
end;
end.
|