Question

Набрать в программе pascal программу исправив ошибки : program 123; uses crt ; var a,s: intedger; begin writeln ( 'введите два числа '); и можно здесь по конкретнее какие именно два числа read(q,w); f: =q/w; writeln ( 'результат ' , f); и здесь тоже readln; end.

Answer 1

Program p123;
uses CRT;
var
  a, s: integer;
  f: real;

begin
  Write('ВВЕДИТЕ ДВА ЦЕЛЫХ ЧИСЛА, ВТОРОЕ НЕ МОЖЕТ БЫТЬ НУЛЕМ: ');
  Read(a, s);
  f := a / s;
  Writeln('РЕЗУЛЬТАТ: ', F);
  Readln
end.

Тестовое решение:
ВВЕДИТЕ ДВА ЦЕЛЫХ ЧИСЛА, ВТОРОЕ НЕ МОЖЕТ БЫТЬ НУЛЕМ: 3 7
РЕЗУЛЬТАТ: 0.428571428571429