СМОТРИ ВЛОЖЕНИЕ
...........................
begin
writeln(7.41-sqrt(5*(sqrt(7))+sqr(12)));
end.
На паскале :
program task;
var s:byte;
begin
read(s);
case s of
1: writeln('1-2 уровень');
2: writeln('3-4 уровень');
3: writeln('5-6 уровень');
4: writeln('7-8 уровень');
5: writeln('9-10 уровень');
end;
end.
Var s:array[1..5] of string;
b:boolean;
i:integer;
begin;
b:=false;
for i:=1 to 5 do
begin;
readln(s[i]);
if s[i]='гимназия' then b:=true;
end;
if b=true then writeln('Да') else writeln('Нет');
end.
<span>персональная возможно</span>