Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат которого - id910135120230203 от лом15 03.02.2023 18:53

Question

Информатика: Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат которого не превосходит число 225. программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода и не входит в последовательность). программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.

лом15 · Accepted Answer

var

a, b, n, i, j, t: integer;

s, sn: string;

begin

write ('введите начало отрезка: ');

readln (a);

write ('введите окончание отрезка: ');

readln (b);

n : = 0;

for i : = a to b do begin

s : = inttostr (i);

t : = 1;

for j : = 1 to length (s) do

t : = t * strtoint (s[j]);

if t > n then begin

sn : = s;

n : = t;

end;

writeln ('число с наибольшим произведением цифр: ' + sn);

end;

MOGZ ответил