Выдаёт ошибку:операнды имеют неприводимые типы.Где я ошиблась?(Программа написана на языке Pascal ABC) Program Home;
Uses CRT;
Var a: integer;
b: real;
Begin
WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер');
ReadLn (a);
WriteLn ('Введите число, которое нужно перевести в килограммы');
ReadLn (b);
If (a = 'килограмм') then
WriteLn (b);
If (a = 'миллиграмм') then begin
b := b / 1000000;
WriteLn (b);
end;
If (a = 'грамм') then begin
b:= b / 1000;
WriteLn (b)
end;
If (a = 'тонна') then begin
b:= b * 1000;
WriteLn (b);
end;
If (a = 'центнер') then begin
b:= b * 100;
WriteLn (b);
end;
End.
Uses CRT;
Var a: integer;
b: real;
Begin
WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер');
ReadLn (a);
WriteLn ('Введите число, которое нужно перевести в килограммы');
ReadLn (b);
If (a = 'килограмм') then
WriteLn (b);
If (a = 'миллиграмм') then begin
b := b / 1000000;
WriteLn (b);
end;
If (a = 'грамм') then begin
b:= b / 1000;
WriteLn (b)
end;
If (a = 'тонна') then begin
b:= b * 1000;
WriteLn (b);
end;
If (a = 'центнер') then begin
b:= b * 100;
WriteLn (b);
end;
End.
More Questions From This User See All