Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Составление и отладка программ разветвляющей структуры
помогите решить задачу пожалуйста! Составить блок-схему и программу:  Даны действительные числа 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
2 | Автор: Berestovskiy | 2013-10-10, 00:48   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: