1. Дана точка A (x,y). Определить лежит ли эта точка на оси Oy. 2. Даны два числа, не равные друг другу. Заменить большее из них квадратом суммы, а меньшее - разностью квадратов этих чисел - Самостоятельная работа по теме Разве...
1. Дана точка A (x,y). Определить лежит ли эта точка на оси Oy.
2. Даны два числа, не равные друг другу. Заменить большее из них квадратом суммы, а меньшее - разностью квадратов этих чисел
-
Самостоятельная работа по теме Разветвляющиеся алгоритмы Вариант 6
Решите, нигде решение не могу найти
Гость
Ответ(ы) на вопрос:
Гость№1:
program oy;
var x,y:real;
begin
write('Введите координаты точки: ');
readln(x,y);
if x = 0 then writeln('Точка лежит на оси Y') else
writeln('Точка не лежит на оси Y');
end.
№2:
program men;
var a,b:real;
procedure zamena(var a,b:real);
var x,y:real;
begin
x:=a;
y:=b;
a:=(x+y)*(x+y);
b:=x*x-y*y;
end;
begin
writeln('Введите два числа:');
readln(a,b);
if a>b then zamena(a,b) else
zamena(b,a);
writeln('Числа после замены:');
writeln(a,' ',b);
end.
Не нашли ответ?
Похожие вопросы