Помогите, пожалуйста! Очень вас прошу! Через паскаль! num, resНаписать программу, которая
Помогите, пожалуйста! Очень вас прошу! Через паскаль! num, res
Написать программку, которая в последовательности естественных чисел определяет величайшее, квадрат, которого не превосходит число 225.
Программка получает на вход естественные числа, количество введенных чисел неведомо, последовательность чисел заканчивается числом 0 (0 признак окончания ввода и не заходит в последовательность).
Программка обязана вывести одно число: величайшее число в последовательности, квадрат которого не превосходит число 225.
Не использовать: const, count и иные
Метод
Заносим в переменную res (результат) число 0. Оно заранее меньше любого из натуральных чисел в последовательности.
Читаем еще одно число в последовательности. Если оно больше res и при этом не превосходит 15, записываем его в res. Если оно одинаково нулю, чтение заканчиваем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (numgt;res) and (numlt;=15) then res:=num
until num=0;
Writeln(res)
end.
program zadanie;
var
max,num,a :byte;
label metka;
begin
max:=0;
writeln('vvodite chisla');
metka:
readln(a);
if a=0 then
writeln ('max=',max)
else
if a*agt;225 then
begin
writeln('Slishkom bolshoe chislo');
goto metka;
end
else
begin
if maxlt;a then max:=a;
goto metka;
end;
readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.