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

Answer 2

Для начала, давайте разработаем блок-схему алгоритма, а затем переведем его в код на Паскале.

Блок-схема:

scssCopy code
Начало
Ввести х
Ввести у
Если (x * y) > (x + y) то
    x = x * 15
Иначе
    y = y * 20
Конец если
Вывести x
Вывести y
Конец

Теперь переведем это в код на Паскале:

pascalCopy code
program IncreaseNumbers;
var
  x, y: real;  { Используем тип данных "real" для вещественных чисел }

begin
  writeln('Введите число x:');
  readln(x);
  writeln('Введите число y:');
  readln(y);

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

  writeln('Полученные числа:');
  writeln('x = ', x);
  writeln('y = ', y);
end.

Сначала программа запрашивает ввод чисел x и y. Затем она проверяет условие: если произведение x и y больше, чем их сумма, то x увеличивается в 15 раз, в противном случае y увеличивается в 20 раз. Наконец, программа выводит обновленные значения x и y.