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 PROG1;
USES CRT;
VAR A,S:INTEGER;
VAR F:REAL; 
BEGIN
WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ');
READ(A,S);
F:=A/S;
WRITELN ( 'РЕЗУЛЬТАТ ' , F);
READLN;
END.

Answer 2

Программа, исправленная от ошибок, будет выглядеть следующим образом: ```pascal program Calc; uses crt; var q, w: integer; f: real; begin writeln('Введите два числа:'); readln(q, w); f := q / w; writeln('Результат:', f); readln; end. ``` В данной программе мы используем модуль crt для поддержки функций работы с экраном. Объявляем переменные q и w типа integer, а также переменную f типа real (для хранения результата деления q на w). Внутри основной части программы (begin...end) выводим на экран сообщение "Введите два числа:", считываем значения q и w с помощью функции readln, вычисляем результат деления q на w и сохраняем в переменную f. Затем выводим на экран сообщение "Результат:" с помощью функции writeln и переменную f. После этого программа ожидает нажатия клавиши пользователем и заканчивает свою работу с помощью функции readln.