Помогите, пожалуйста! Очень вас прошу! Через паскаль! Не использовать: const, count,
Помогите, пожалуйста! Очень вас прошу! Через паскаль!
Не использовать: const, count, label metka. Просто не так давно прошли тему: Поиск наивеличайшего либо наименьшего элемента массива (ну, это Max, min). А также num, res
Написать программку, которая в последовательности натуральных чисел определяет наивеличайшее, квадрат, которого не превосходит число 225.
Программа получает на вход естественные числа, количество введенных чисел неведомо, последовательность чисел заканчивается числом 0 (0 признак окончания ввода и не заходит в последовательность).
Программка обязана вывести одно число: наивеличайшее число в последовательности, квадрат которого не превышает число 225.
program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
if a*agt;225 then
writeln('Slishkom bolshoe chislo')
else
if maxlt;a then max:=a ;
until a=0;
readln;
writeln('max=',max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.