Есть ответ 👍

Разработать на ая алгоритм решения этой : даны два действительных числа x и y, не равные друг другу. замените меньшее из этих чисел их произведением.

216
347
Посмотреть ответы 2

Ответы на вопрос:


Алгоритм:   сравниваете x с y,   если x> y, то y присваиваете значение x*y, иначе x присваиваете значение x*y на паскале var x,y: real; begin   write('x y через пробел:   '); readln(x,y);   write('результат:   ');   if x> y then y: =x*y   else x: =x*y;   writeln(x,' ',y); end.   ввод - вывод: x y через пробел:   21 15результат:   21 315

Var r: word; begin read(r); write(6,28*r,' ',3,14*r*r); end.

Популярно: Информатика