Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
end.
Объяснение:
30 байт, т.к 1 символ=8 бит, I=8*30=240 бит =>240/8=30 байт
1) Не верно!
Общее количество учеников равно:
45+30+20+15=110
Из диаграммы видно, что на долю учеников 9-го класса приходится ровно половина, значит:
110/2=55 - количество учеников 9-го класса.
Предположим, что всю долю учеников, получивших 0 баллов составляет 9-ый класс, тогда:
55-45=10 - учеников, которые точно не могли получить 0 баллов. Все эти 10 учеников могли получить 1 балл, значит, утверждение ложно.
2) Верно!
Опять же, на долю учеников 9-го класса приходится 55 человек, а получило 0 баллов 45, значит всю долю получивших 0 баллов, может составить аудитория 9-х классов
3) Не верно!
Половина от всей аудитории равна 55, а четверть примерно равна 28. Аудитория 10-х классов составляет больше четверти всей аудитории, следовательно, их число немного превышает 28. Между тем, 2 балла получило лишь 20 человек, следовательно, весь 10 класс не могу получить 2 балла
4)Не верно!
(Опираюсь на то, что это не предпологается, а утверждается)
Опять же на долю 10-классников приходится больше 28 человек. Доля учеников, получивших 3 балла:
15/110*100~=13%
Если разделить на 4 части(2 части составляет 9 класс), то получим примерно 3%. Получается, в среднем, от количества 10-классников примерно 4%(Их больше 1 части).Следовательно, нельзя точно(именно точно) утверждать, что таких учеников нет.
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.