Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Меньшее из двух чисел (a,b) уменьшите на 4

Ответ оставил Гость

// меньшее из двух чисел (a,b) уменьшите на 4

Var x,y   : real;
begin
  writeln (Введите первое число);
  readln (x);
  writeln (Введите второе число);
  readln (y);
  while x=y do
    begin
      writeln (Вы ввели равные числа. По условиям задачи числа не должны быть равны. Попробуйте еще раз);
      writeln (Введите первое число);
      readln (x);
      writeln (Введите второе число);
      readln (y);
    end;
  if x           else y:=y-4;
 writeln (Первое число ,x, Второе число ,y);       
end.