Question

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

Answer 1

Ответ:

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 во второй строке, если могут встречаться десятичные (полтора), то оставьте так.