Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное - id1346788320210326 от СанаевАнтон 26.03.2021 01:05

Question

Информатика: Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа — сумма двух старших разрядов, а также сумма двух младших разрядов заданного числа. 2. Полученные два числа записываются друг за другом в порядке невозрастания (без разделителей). Пример. Исходное число: 1277. Поразрядные суммы: 3, 14. Результат: 143. Определите, сколько из приведённых ниже чисел могут получиться в результате работы автомата.

СанаевАнтон · Accepted Answer

1)
var a:string;
i, o: Integer;
p: Real;
begin
readln(o);
a := inttostr(o);
for i := 1 to length(a) do
p := p + strtoint(a[i]);
if (sqr(o) = p*p*p) then writeln('true')
else writeln('false');
end.

2)
var a:string;
i, o, p: Integer;
begin
readln(o);
a := inttostr(o);
for i := 1 to length(a) do
p := p + strtoint(a[i]);
if (p mod 3 = 0) then writeln('true')
else writeln('false');
end.

3)
var a, b, c: real;
begin
readln(a, b, c);
if ((a = b) and (b = c)) then writeln('true')
else writeln('false');
end.

Всё проверено, удачи:)

MOGZ ответил