Question

Здравствуйте, помогите написать код к задаче на делфи. Задача: Надано два числа A и Y. Если А>Y то вычеслить х=А/100, если А<Y то вычеслить К=100|A| 

Answer 1

Так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
     readln(a, y);
     if (a > y) then
     begin
          x := a / 100;
          writeln(x);
     end;
     if (a < y) then
     begin
          k := 100 * abs(a);
          writeln(k);
     end;
end.

Answer 2

Конечно, вот пример кода на Delphi, решающего данную задачу:

delphiCopy code
program Solution;

var
  A, Y, x, K: Integer;

begin
  // Ввод значений A и Y
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число Y: ');
  Readln(Y);

  // Вычисление значения x или K
  if A > Y then
  begin
    x := A div 100;
    Writeln('Результат: x = ', x);
  end
  else if A < Y then
  begin
    K := 100 * Abs(A);
    Writeln('Результат: K = ', K);
  end
  else
    Writeln('Числа A и Y равны.');

  Readln;
end.

В этом примере пользователю будет предложено ввести значения для переменных A и Y. Затем будет выполнена проверка условий, и результат (x или K) будет выведен на экран. Если A и Y равны, будет выведено сообщение об этом.