//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
Так как число ребят, имеющих «тройки» по математике и физике, равно 7, то число учеников, имеющих только две «тройки» - по математике и по физике, равно 7-5=2. Тогда 17-4-5-2=6 учеников имеют две «тройки» - по математике и по русскому языку, а 22-5-2-11=4 ученика только две «тройки» - по физике и по русскому языку. В этом случае без «тройки» учится 40-22-4-6-4=4 ученика. А имеют «тройки» по двум предметам из трех 6+2+4=12 человек.
Разные программы, данные...
Для того щоб робити точні виміри і полегшити своє життя
Const n=10;
var a,d:array[1..n] of integer;
k,i,j,t:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(900)+100;
write(a[i]:4);
end;
writeln;
writeln('Количество делителей:');
for i:=1 to n do begin
k:=2;
for j:=2 to a[i] div 2 do
if a[i] mod j = 0 then k:=k+1;
d[i]:=k;
write(d[i]:4);
end;
writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if d[j]>d[j+1] then
begin
t:=d[j]; d[j]:=d[j+1]; d[j+1]:=t;
t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t;
end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.
Пример:
882 524 890 505 911 792 772 458 507 368
Количество делителей:
18 6 8 4 2 24 6 4 6 10
Отсортированный массив:
911 505 458 524 772 507 890 368 882 792