Program n1;
const n=15;
var a: array[1..n] of integer;
i,k5,kns,sum: integer;
sb: real;
begin
randomize;
k5:=0;
kns:=0;
sum:=0;
write('оценки: ');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
if a[i]=5 then k5:=k5+1;
sum:=sum+a[i];
end;
writeln;
sb:=sum/n;
writeln('кол-во 5: ',k5);
writeln('ср арифм: ',sb);
for i:=1 to n do if a[i]>sb then kns:=kns+1;
writeln('кол-во уч >ср арифм: ',kns);
end.
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var n:=Trunc((b-a)/h);
for var i:=0 to n do begin
var x:=a+i*h;
var y:=cos(x)*sqrt(x);
Writeln(x:6:3,y:15:5)
end
end.
<u>Пример</u>Введите a,b,h: 0.2 3.2 0.3
0.200 0.43830
0.500 0.62054
0.800 0.62315
1.100 0.47574
1.400 0.20111
1.700 -0.16799
2.000 -0.58852
2.300 -1.01046
2.600 -1.38169
2.900 -1.65348
3.200 -1.78580
2)Маша она точна купит заколку
Тут подбором наверное нужно решать. Просто переводим в другие системы, пока не получится то, что просят (100). Чтобы не делать тут длинные лишние записи, я напишу сразу то, что должно получаться.
Если тебе обязательно нужно по очереди все перебрать - перебирай.
49 в семиричную
49:7=7 (0)
7:7=1(0)
Записываем снизу вверх:
100 - то, что и просили.
В семеричной системе счисление основание 7 (потому она и семеричная)
Ответ: 7
