Даны три числа аД^ - найти наибольшее из них.
а) открыть новый файл и набрать текст программы:
PROGRAM P5;
VAR a,b,c,MAX:REAL;
BEGIN
WRITELN(‘ВВЕДИТЕ ЧИСЛА a,b,c’);READLN(a,b,c);
IF a>b THEN
IF a>c THEN MAX:=a ELSE MAX:=c ELSE IF b>c THEN MAX:=b ELSE MAX:=c; WRITELN(‘Max=’,MAX);
END.
б) выполнить программу щелчком по соответствующей кнопке меню или клавишей F9;
в) ввести через клавишу Enter в строку ввода три числа A, B, С и наблюдать результат.
(Тест: числа 2 6 и 4 ответ: Max=6)
Документ Microsoft Office Word.docx
Даны три числа аД^ найти наибольшее из них.
ЗАДАНИЕ 5
а) открыть новый файл и набрать текст программы:
PROGRAM P5;
VAR a,b,c,MAX:REAL;
BEGIN
WRITELN(‘ВВЕДИТЕ ЧИСЛА a,b,c’);READLN(a,b,c);
IF a>b THEN
IF a>c THEN MAX:=a ELSE MAX:=c ELSE
IF b>c THEN MAX:=b ELSE MAX:=c;
WRITELN(‘Max=’,MAX);
END.
б) выполнить программу щелчком по соответствующей кнопке меню или
в) ввести через клавишу Enter в строку ввода три числа A, B, С и
клавишей F9;
наблюдать результат.
(Тест: числа 2 6 и 4 ответ: Max=6)
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с
договором-офертой сайта. Вы можете
сообщить о нарушении.