условный оператор

[ank1ne]

Запишите условный оператор, в котором значение переменной "с" вычисляется по формуле: a+b, если а нечетное и a*b, если а четное.

var a,b,c:real;
begin
writeln('Vvedi 2 chisla');
readln(a,b);
if (amod2)=0 then
c:=a*b
else c:=a+b;
writeln(c);
readln;
end.

где ошибка, подскажите пожалуйста

[VKorablev]

сфига ли тип то вщественный? целые поставь.

[ank1ne]

все равно не робит, что то не то

[Alex11223]

a mod 2 с пробелами попробуйте.

[Leshii]

var a,b,c:integer;
begin
writeln('Vvedi 2 chisla');
readln(a,b);
if (a mod 2)=0 then
c:=a*b
else c:=a+b;
writeln(c);
readln;
end.

[19vitek]

var a,b,c:Integer;
begin
writeln('Vvedi 2 chisla');
readln(a,b);
if  Odd(a)=False then
c:=a*b
else c:=a+b;
writeln(c);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

19vitek, а зачем так запутано (я сперва даже решил, что Вы ошиблись)
Можно использовать функцию Odd() "напрямую",
odd() - возвращает true, если число нечётное

поэтому:

if odd(a) then c:=a+b
else c:=a*b;

[ank1ne]

всем спасибо, тему можно закрывать