У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b — неизвестное - id1079331720200419 от НепосредственноКаха8 19.04.2020 02:51

Question

Информатика: У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b — неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. Программа для исполнителя Альфа — это последовательность номеров команд. Известно, что программа 12121 переводит число 3 в число 69. Определите значение b.

НепосредственноКаха8 · Accepted Answer

1)uses crt; var x,a,b,c,i: integer; begin cls; write( введите число: ); readln(x); a: = x div 100; b: = (x - a*100) div 10; c: = (x - a*100 - b*10); if (a=b) or (a=c) or (b=c) then writeln( есть одинаковые цифры ) else writeln( одинаковых цифр нет ); end.2)uses crt; var x: real; begin cls; write( сумма покупки: ); readln(x); if x 1000 then x: =x-(x*0.1); writeln( стоимость с учётом возможной скидки ,x); end....

MOGZ ответил