Решите блок-схему и Паскаль. 1.Даны числа х,у.Если произведение чисел >чем их сумма, то увеличить первое число в 15раз, в противном случае второе число увеличить в 20раз. Вывести полученные числа
Имя можно вставить любое, вывод изменить по своему усмотрению, если числа натуральные(1,2,3,20...), то советую заменить real на integer во второй строке, если могут встречаться десятичные (полтора), то оставьте так.
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 во второй строке, если могут встречаться десятичные (полтора), то оставьте так.