Анастасия
Задача на турбо паскале
Введите три числа a,b,c (a,b,c не равно друг другу) . Составить программу поиска максимального значения и вывести максимум на экран.
Введите три числа a,b,c (a,b,c не равно друг другу) . Составить программу поиска максимального значения и вывести максимум на экран.
Пишите на почту или в асю 586178755
Я те скину текст проги на почту отправлю ( а то запрещает английскую раскладку)
var
a,b,c: Integer;
Begin
ReadLn(a);
ReadLn(b);
ReadLn(c);
if a>b then
if a>c then
WriteLn(a)
else
WrileLn(c)
else
if b>c then
WriteLn(b)
else
WriteLn(c)
ReadLn;
End;
Это упрощённо - нет защиты от ввода букв и одинаковых цифр (обязательно? )
Возможно при выводе там будет WriteLn(IntToStr(переменная)) , давно на нём уже не писал.