Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 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.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru