Вывести все 2-значные числа, у которых сумма цифр равна 12

@Alex2899 · Регистрация: 31.01.2014

Author24 — интернет-сервис помощи студентам

Чтобы по 100 раз не писать выложу сразу 6 задач(Разделю на две темы) Напишите только полное решение, заранее спасибо))) Тема Цикл. Через оператор While.
1.Вывести все 2-значные числа, у которых сумма цифр равна 12.

Комментарий администратора

одна тема - одна задача, читайте правила форума

@APALoff · 28.02.2014, 10:21

Pascal

1	For i:=10 to 99 do If (i div 10)+(i mod 10)=12 then Writeln(i);

@volvo · 28.02.2014, 15:47

Сообщение от Alex2899

Через оператор While

Pascal

// Первый вариант: цикл по 90 значениям
  i := 10;
  while i < 100 do
  begin
    if (i div 10) + (i mod 10) = 12 then writeln(i);
    inc(i);
  end;
 
// Второй вариант: цикл по 11 значениям
  i := 1;
  while 12 - i > 0 do
  begin
    if (12 - i < 10) and (9*i + 12 < 100) then writeln(i, 12-i);
    inc(i);
  end;

Вывести все 2-значные числа, у которых сумма цифр равна 12

Решение

Решение

	28.02.2014, 15:47