Паскаль

[wm_leviathan]

Program n1;
Var c,a,b,sum:integer;
begin
Writeln ('vvedite dva chisla');
Readln(a,b);
Writeln ('vvedite nekoe chislo');
Readln(c);//это то что будет кратным
if ((a mod c)=0) and ((b mod c)=0) then
begin
if a>b then
a:=a/2
else
b:=b/2;
end
else begin
sum:=sqrt(a)+sqrt(b);
a:=a+sum;
b:=b+sum;
end;
end;
writeln(a,b);
readln
end.

это 1я задача

[Юлия428747]

окей )))

if (sum>0) and ((sum mod 3)=0) then begin
а что тут может быть за ошибка возле скобки после тройки!!((

о и за первую задачу спасибо большое ....

[wm_leviathan]

Сообщение от Юлия428747

окей )))

if (sum>0) and ((sum mod 3)=0) then begin
а что тут может быть за ошибка возле скобки после тройки!!((

конкретно напишите то что пишет вам компилятор. у меня делфи норм пропускает не на что не ругается

[Юлия428747]

operand types do not match operator
вот так то

[wm_leviathan]

тип операнда не соответствует оператору )
щас я паскаль блин поставлю напишите лучше в аську доделаем 225366225 чем кучу постов разводить

[rubius2008]

Кратность вещественных чисел можно проверить так:

frac(x/y)<=1e-9

[wm_leviathan]

Сообщение от rubius2008

Кратность вещественных чисел можно проверить так:

frac(x/y)<=1e-9

никогда не использовал но Frac вроде отбрасывает целую часть к примеру

x:=3.75;
y:=22.02;
//тогда frac(x/y) это 
frac(3.75/22.02) т.е 0.75/0.02

ну а 1e-9 это что такое ?