1. Найдите ошибки в записи операторов присваивания:
Var g, h:Byte;
f:Real;
c, q:Char;
b,e:Boolean;
Begin
g:=5.67;
f:=g+3.789;
c:=’t’;
b:=true;
e:=h>10;
q:=c
End.

Question

Информатика: 1. Найдите ошибки в записи операторов присваивания: Var g, h:Byte; f:Real; c, q:Char; b,e:Boolean; Begin g:=5.67; f:=g+3.789; c:=’t’; b:=true; e:=h 10; q:=c End.

ledigalina1974 · Accepted Answer

Var
q: Single; // Результат. Если число будет больше, то указать Double
i: Single; // Число из которого необходимо получить результат. Если число будет больше, то указать Double
p: Single; // Процент. Если процент будет всегда целым числом, то указать Byte
begin
writeln('Введите число => ');
read(i);
writeln('Введите процент, который хотите расcчитать из введенного числа => ');
read(p);
while p < 0 do
begin
writeln('Процент не может быть меньше нуля, введите новое значение => ');
read(p);
end;
q:=(i / 100) * p;
writeln('Ваш результат из числа => ', i, ', ', p, '% = ', q);
end.

1. Найдите ошибки в записи операторов присваивания: Var g, h:Byte; f:Real; c, q:Char; b,e:Boolean; Begin g:=5.67; f:=g+3.789; c:=’t’; b:=true; e:=h>10; q:=c End.

MOGZ ответил

1. Найдите ошибки в записи операторов присваивания:
Var g, h:Byte;
f:Real;
c, q:Char;
b,e:Boolean;
Begin
g:=5.67;
f:=g+3.789;
c:=’t’;
b:=true;
e:=h>10;
q:=c
End.