Для решения в паскале: найти максимальное из трех чисел. дано: x,y,z

comet55 comet55    2   21.05.2019 01:20    0

Ответы
Caxap03 Caxap03  14.06.2020 19:52

program maks;

uses crt;

var x, y, z, max: real;

begin

clrscr;

writeln ('Введите первое число='); readln (x);

writeln ('Введите второе число='); readln (y);

writeln ('Введите третье число='); readln (z);

if a>b then max:=a else max:=b;

if max<c then max:=c;

writeln ('Наибольшее из введенных чисел=', max);

repeat until keypressed;

end.

Вот так, это точно правильно, единственное, мог с пробелами накосячить, многое не помню.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика