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