Нельзя преобразовать тип 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.
//Pascal //Для натуральных чисел var a, s, p:integer;
begin write('Введите число = '); readln(a); s := 0; p := 1; while (a<>0) do begin p := p * (a mod 10); s := s + (a mod 10); a := a div 10; end; writeln( 'Сумма цифр числа = ', s); writeln( 'Произведение цифр числа = ', p); end.
//Если число отрицательное var s, p, a, b, c: integer; f: boolean; begin write('Введите число = '); readln(a); if a < 0 then f := true; a := abs(a); b := a mod 10; a := a div 10; c := a mod 10; a := a div 10; if f = true then begin p := (-a) * b * c; s := -a + b + c; end else begin s := a + b + c; p := a * b * c; end; writeln('Сумма цифр числа = ', s); writeln('Произведение цифр числа = ', p); end.
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.