Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

задача для решения в паскале:

найти максимальное из трех чисел.

дано: x,y,z

Ответ оставил Гость

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

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

repeat until keypressed;

end.

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