Комментарий удален
Комментарий удален
Комментарий удален

Ответы и объяснения

2014-02-16T11:01:45+04:00
Var a,b,c,e,x:real;
begin
readln(a,b);
if (b=6) or (b=7) then
begin
c:=5.52/100*20;
e:=5.52-c;
end
else
e:=5.52;
x:=a*e;
writeln(x);
end.