На языке Паскаль, при запуске следующей программы, появилось сообщение об ошибке. Найдите причину этой ошибки. Var a:byte; b:char; Begin a:=5*2; b:='A'; if a<=15 then a:=a/2 else b:='A'; write (a); End.

Ошибка очень проста. Вы пытаетесь типу byte присвоить выражение типа real.

Var a:byte; b:char;

Begin a:=5*2;

b:='A';

if a<=15 then

a:=a/2 / / такое деление доступно только для типа real так как результатом деления может быть не целое число.

else b:='A';

write (a);

End.

Советую заменить либо тип переменной, либо знак деления.

Решение 1:

Var a:byte; b:char;

Begin

a:=5*2;

b:='A';

if a<=15 then a:=a div 2 / / целочисленное деление

else b:='A'; write (a); End.

Var a:real; / /тип real

b:char;

Begin a:=5*2;

b:='A';

if a<=15 then a:=a/2

else b:='A';

write (a);

End.