Поделиться
Л2-00620.docx
Условный оператор
Пример. Заданы целые значения x и y. Определить
z = max (x2, y2).
Program primer1;
Var
z, x, y : integer; Begin
Readln (x, y);
If sqr(x) > sqr(y) then z := sqr(x)
else z := sqr(y);
Write ('Z = ', z); End.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
