В классе-10 учащихся 1 учащийся - на отлично ?%-составляют отличники? 1)1\10(одна десятая)=-0,2 2)0,2*100%=20%
Ответ:20% отличников.
5 лет – не более 7 минут;6 лет – 10 минут;7-9 лет – 15 минут;10-12 лет – 20 минут;13-14 лет – 25 минут;15-16 лет – 30 минут.
Var
S : String;
i : Byte;
Begin
Readln(S);
For i:=1 to Length(S) do
If S[i]='о' then S[i]:='а' else
If S[i]='а' then S[i]:='о';
Writeln(S);
end.
Var
k,m,n:real;
begin
readln(m,n);
k:=m mod 5;
if (m div n)>k then
writeln( (m/n)*(m/n) );
end.