Нельзя преобразовать тип real к integer

program chees;

var m, n, s, k : real;

begin

readln (m) ;

readln (n) ;

s:=m*n;

If s mod 20 then k : = s / 2+1

else k:=s/2;

writeln (k)

end.

Question

Информатика

Сюта

28 ноября, 20:57

Нельзя преобразовать тип real к integer

program chees;

var m, n, s, k : real;

begin

readln (m) ;

readln (n) ;

s:=m*n;

If s mod 20 then k : = s / 2+1

else k:=s/2;

writeln (k)

end.

+2

Ответы (1)

Знаете ответ на вопрос?

Васёна · Answer 1

Program chees;

var

m, n, s: integer;

k: real;

begin

readln (m) ;

readln (n) ;

s : = m * n;

if s mod 2 0 then

k : = s / 2 + 1

else

k : = s / 2;

writeln (k)

end.

Нельзя преобразовать тип real к integerprogram chees;var m, n, s, k : real;beginreadln (m) ;readln (n) ;s:=m*n;If s mod 20 then k : = s / 2+1else k:=s/2;writeln (k)end.

Нельзя преобразовать тип real к integer

program chees;

var m, n, s, k : real;

begin

readln (m) ;

readln (n) ;

s:=m*n;

If s mod 20 then k : = s / 2+1

else k:=s/2;

writeln (k)

end.