Question

Даны два числа. Если первое число больше второго, то надо отнять второе число от первого, иначе отнять первое число от второго (решение см. ниже).

Задание

Найдите ошибки в тексте программы, в правом столбике таблицы 1 приведите правильный вариант, введите исправленный текст программы.
Таблица 1 – Текст программы к заданию

Programm Raznost;
begin.
var
t, f, rez; integer
writeln 'введите любые два числа';
readln (t, f, rez)
if t > f then
rez := t - f;
else
rez = f - t;
writeln (разность чисел равна , rez)
end

Изобразите блок-схему этой программы.

Answer 1

Ответ:

Program Raznost;

begin

  var

    t, f, rez: integer;

 writeln('введите любые два числа');

 readln(t,f);

  if t > f then

     rez:= t - f

  else

     rez:= f - t;

  writeln('Разность чисел равна ', rez);

end.

Объяснение:

1. В слове "Programm" допущена ошибка в виде лишней "m"
2. После "begin" точка не ставится
3. Правильное оформление "t, f, rez; integer" будет так:  "t, f, rez: integer;"
4. В строке "writeln 'введите любые два числа';" Необходимо добавить скобки "writeln('введите любые два числа');"
5. В строчке "readln (t, f, rez)" не нужно перечислять переменную "rez", а так-же нужна точка с запятой на конце.
6. После "rez := t - f;" не нужна точка с запятой, т.к. это ветвление полной формы
7. в строчке "writeln (разность чисел равна , rez)" необходимо добавить знаки в скобках " ' "
8. На последней строчке "end" необходима точка