Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18)- Pascal(Паскаль)

Обозначим: 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.

Leave a Comment

4 + 3 =