Решите блок-схему и Паскаль. 1.Даны числа х,у.Если произведение чисел >чем их сумма, то увеличить первое число в 15раз, в противном случае второе число увеличить в 20раз. Вывести полученные числа

33даник747 33даник747    3   25.05.2021 20:14    2

Ответы
kataysinkevich kataysinkevich  24.06.2021 20:14

program z1;  

var x,y:real;

begin

 read(x,y);

 if (x*y) > (x+y) then x:=x*15 else y:=y*20;

 writeln(x,' ',y);

end.

Имя можно вставить любое, вывод изменить по своему усмотрению, если числа натуральные(1,2,3,20...), то советую заменить real на integer во второй строке, если могут встречаться десятичные (полтора), то оставьте так.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика