Нельзя преобразовать тип real к integer program chees; var m,n,s,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 к integer
program chees;
var m,n,s,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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы