1-В среде Delphi определить наибольшее из трех чисел 2 Процедура сохранения документа. 3...

0 голосов
107 просмотров

1-В среде Delphi определить наибольшее из трех чисел

2 Процедура сохранения документа.

3 Создание текстогого редактора


Информатика | 107 просмотров
Дан 1 ответ
0 голосов

Делфи - обьектно ориентированная среда программирования обжект паскаль. Так что структурно паскалем там катит (работает из-под ДОСа)

1)

var
a,b,c,max,max2, max3:integer;
begin
writeln ('vvedite chisla');
read (a);
read (b);
read (c);
begin
if (a>b) then
begin
max:=a
end;
if (b>a) then
begin
max:=b
end;
if (c>max) then
begin
max2:=c;
end;
if (max>max2) then max3:=max;
if (maxwriteln (max3);
end;
end.


(1.0k баллов)