|
Составление и отладка программ разветвляющей структуры
|
|
помогите решить задачу пожалуйста! Составить блок-схему и программу: Даны действительные числа x,y,z. Получить max(x2,y2,z2).
№ 1 | Автор: zxsa |
2013-10-09, 18:43 | Изменено: zxsa - Ср, 2013-10-09, 18:55
|
Репутация: [ + 0 ]
|
|
|
|
var
x,y,z:real;
begin
read(x,y,z);
if (x*x > y*y) and (x*x > z*z) then writeln(x*x);
if (y*y > x*x) and (y*y > z*z) then writeln(y*y);
if (z*z > x*x) and (z*z > y*y) then writeln(z*z);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
