===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
1).В 8 литровый кувшин набрать воду-перелить в 3 литровый кувшин ( в 8 литровом остается 5 литров )
2).перелить из 8 литрового в 3 литровый ( в 8 литровом останется 2 литра )
3). Эти 2 литра перелить в 3 литровый кувшин
4). Набрать полностью 8 литровый кувшин и долить до конца из 8 литрового в 3 литровый и остаётся в 8 литровом 7 литров воды
Корневой каталог - начальный каталог в структуре каталогов.
В этом случае ответ Б) В:
Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
Var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.