|
|
Найти максимальное число из трёх
{Найти максимальное число из трёх }
program max_3;
var
a,b,c,max : integer;
begin
{Ввод исходных данных}
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
{поиск максимального}
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (b<c) then max:=c;
{вывод результата}
write('max=',max);
readln;
end.
скачать пример
|
| Категория: Примеры программ | Добавил: Admin (15.12.2009)
|
| Просмотров: 3135
| Рейтинг: 3.0/3 |
|
|
-->
-->
| linux-mgd.3dn.ru © 2024 |
 |
|
