Program Z1;
var a,b,c,k: integer ;
begin;
read;
k:=1;
while (a>0) or (b>0) do;
begin;
b:=b*2;
a:=a-b/2;
if a<=0 then wrileln('Чёрт')
else begin;
b:=b-c;
a:=a+c;
end;
if b<0 then wrileln('Мужик')
else k:=k+1;
end;
writeln(k=k)
end.
Program1.pas(9) : Нельзя преобразовать тип real к integer
Что делать?
Program Z1;
var a,b,c,k: integer ;
begin;
read;
k:=1;
while (a>0) or (b>0) do;
begin;
b:=b*2;
a:=a-b/2;
if a<=0 then wrileln('Чёрт')
else begin;
b:=b-c;
a:=a+c;
end;
if b<0 then wrileln('Мужик')
else k:=k+1;
end;
writeln(k=k)
end.
Program1.pas(9) : Нельзя преобразовать тип real к integer
Что делать?
var a,b,c,k: integer ;
begin;
read;
k:=1;
while (a>0) or (b>0) do;
begin;
b:=b*2;
a:=a-b/2;
if a<=0 then wrileln('Чёрт')
else begin;
b:=b-c;
a:=a+c;
end;
if b<0 then wrileln('Мужик')
else k:=k+1;
end;
writeln(k=k)
end.
Program1.pas(9) : Нельзя преобразовать тип real к integer
Что делать?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ошибка возникает из-за того, что переменные a, b и c объявлены как целочисленные (integer), а при вычислениях используются операции с вещественными числами (real).
Чтобы исправить эту ошибку, необходимо либо изменить тип данных переменных a, b и c на real, либо произвести нужные преобразования типов данных при выполнении арифметических операций.
В данном случае, можно изменить тип данных переменных a, b и c на real:
var a,b,c,k: real;
После этого программа должна скомпилироваться без ошибок.