Решение данной задачи смотрите в прикрепленном скриншоте:
Так как A, B, C, D, E - различные цифры в порядке убывания, то A не может быть меньше 4 (в этом случае цифры - 4, 3, 2, 1, 0).
Пусть А=4, тогда 4*4+2 = 16+2 = 18 - не подходит
Пусть А=5, тогда С может быть 3 или 2. Проверяем: 5*5+3=28, 5*5+2=27 - не подходит
Пусть А=6, 6*6+С = 36+С. Чтобы получить в выражении число из двух одинаковых цифр, С должно быть = 8 (получим 44), но С должно быть <= 4 - не подходит.
Пусть А=7, 7*7+С=49+С=49+6=55,но С должно быть <= 5 - не подходит
Пусть А=8, 8*8+С=64+2=66 - может быть (в этом случае В=6, D=1, E=0).
Проверим второе выражение:
86*8+1=688+1=689. Здесь должно получиться 666, значит А=8 тоже не подходит.
Пусть А=9.
9*9+С=81+С=81+7=88. Значит, В=8, С=7
98*9+D=882+D=882+6=888. Значит, D=6
987*9+E=8883+E=8883+5=8888. Значит, Е=5
<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
Нажать пуск
Ровлвтвовивдвтдвтвдвтвдчтвдвтвдвтудвивдвьм