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

Набрать в программе Pascal программу исправив ошибки :
PROGRAM 123;
USES CRT ;
VAR A,S:INTEDGER;
BEGIN
WRITELN ( ВВЕДИТЕ ДВА ЧИСЛА );И МОЖНО ПОЖАЛУЙСТА ЗДЕСЬ ПО КОНКРЕТНЕЕ КАКИЕ ИМЕННО ДВА ЧИСЛА !!
READ(Q,W);
F:=Q/W;
WRITELN ( РЕЗУЛЬТАТ , F);И ЗДЕСЬ ТОЖЕ
READLN;
END.

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

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