Заменить числа заданным образом

@NET NIMBA · Регистрация: 03.10.2021

Author24 — интернет-сервис помощи студентам

Даны целые числа k, l. Если числа не равны, то заменить каждое из них числом, равным наибольшему из исходных, а если равны и
отрицательны, то возвести их в квадрат, если равны и неотрицательны, то увеличить их значения в два раза.

Заранее спасибо.

@Cyborg Drone · 07.10.2021, 00:28

Pascal

var
  k, l: integer;
begin
  write('k = ');
  readln(k);
  write('l = ');
  readln(l);
  if k <> l then
    if k > l then l := k
    else k := l
  else
    if k < 0 then
      begin
        k := k * k;
        l := k
      end
    else
      begin
        k := 2 * k;
        l := k
      end;
  writeln('k = ', k);
  writeln('l = ', l)
end.

@NET NIMBA 0 / 0 / 0 Регистрация: 03.10.2021 Сообщений: 1
		1
	Заменить числа заданным образом 03.10.2021, 13:50. Показов 410. Ответов 1 Метки pascal abc net (Все метки) Даны целые числа k, l. Если числа не равны, то заменить каждое из них числом, равным наибольшему из исходных, а если равны и отрицательны, то возвести их в квадрат, если равны и неотрицательны, то увеличить их значения в два раза. Заранее спасибо. 0

	07.10.2021, 00:28