Предмет: Информатика,
автор: aleshagolubi
ПОМОГИТЕ СРОЧНО
Написать программу, в которой бы с клавиатуры пользователь вводил четыре числа (тип данных
real). После этого программа выводила бы на экран номер наибольшего из них. Нумерация
начинается с 1 БЕЗ использования массивов
Ответы
Автор ответа:
0
Ответ:
var max,n:integer;
c,nom:byte;
begin
max:=-1000;
for c:=1 to 4 do
begin
writeln('Введите число под номером ', c );
readln(n);
if n>max then begin
max:=n;
nom:=c;
end;
end;
writeln('Максимальное число из введенных - 'max);
end.
Объяснение:
Интересные вопросы
Предмет: Русский язык,
автор: timofkrej
Предмет: Математика,
автор: bulywatter
Предмет: Русский язык,
автор: azmatkosh
Предмет: Химия,
автор: Dmitriy0501
Предмет: Математика,
автор: ololoshkanoob2