Главное меню

Вход на сайт

Кто на сайте?

Сейчас 104 гостей и ни одного зарегистрированного пользователя на сайте

Написать программу на языке Pascal для реализации разветвляющегося алгоритма

Image    

x,y – известные величины.

Решение

var x,y,z:real;
begin
writeln('');
write('Vvedite x=');
readln(x);
write('Vvedite y=');
readln(y);
if x-y>0 then
z:=1/(x*y)
else
z:=sqr(x)*sqr(y);
writeln('z=',z:4:2);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте