Уисполнителя x135 три команды, которым присвоены номера: 1. прибавь 1 2. прибавь 3 3. умножь на 5 первая - id1019340220211220 от 4el2 20.12.2021 17:30

Question

Информатика: Уисполнителя x135 три команды, которым присвоены номера: 1. прибавь 1 2. прибавь 3 3. умножь на 5 первая из них увеличивает число на экране на 1, вторая — на 3, а третья — в 5 раз. программа для исполнителя x135 — это последовательность команд. сколько существует программ, которые число 1 преобразуют в число 14?

4el2 · Accepted Answer

Program Digit;
Var a, a1, a2, a3: Integer;
Label Start;
Begin
Start:
WriteLn('Введите трехзначное число');
ReadLn(a);
If (a < 100) Or (a > 999) Then
Begin
WriteLn('Вы ввели не трехзначное число');
Goto Start;
End;
a1 := a div 100;
a2 := (a - a1 * 100) div 10;
a3 := a - a1 * 100 - a2 * 10;
If a1 > a3 ThenWriteLn('Первая цифра больше последней')
Else
Writeln('Последняя цифра больше первой');
If a1 > a2 Then
WriteLn('Первая цифра больше второй')
Else
Writeln('Вторая цифра больше первой');
If a2 > a3 Then
WriteLn('Вторая цифра больше последней')
Else
Writeln('Последняя цифра больше второй');
ReadLn;
End.

MOGZ ответил