Олимпиада

[Кажымурат]

Помогите пожалуйста, у меня завтра Олимпиада тут случайно вопросы достал помогите решить пожалуйста. Олимпиада общая участвуют все.Работа с Паскалем

[IT-man]

что то сильно легкая какая то

Олимпиада

#1 вам домашнее задание)
#2

var s:string;
begin
readln(s);
while pos(',',s)<>0 do
if pos(',',s)<length(s) div 2 then s[pos(',',s)]:=':'
else s[pos(',',s)]:='!';
writeln(s);
end.

#3

var a,b:real;
function F(u,t:real):real;
begin
F:=0;
if u>0 then begin
if  t>0 then f:=2*u+2*t
else f:=u-t;
end
else begin
if t>0 then f:=u+t
else f:=u+2*t;
end;
end;
begin
readln(a,b);
writeln(f(a,b)+f(2*a,2*b)+f((2*a-1),b)+f(a-b,b)+f(2*a+2*b,2*b-1));
end.

[Zer0]

IT-man, может олимпиада школьного уровня Зачем там сильно грузить