Var i,sum: Integer;
a:array[1..10] of Integer;
begin
sum:=0;
Randomize();
for i:=1 to 10 do
begin
a[i]:=random(20);
if(a[i]<15) then sum:=sum +a[i];
write(' ',a[i]);
end;
writeln();
writeln('сумма элементов < 15= ',sum);
end.
1) 3
2) 4
3) 3
4) 1
5) 3
6) 2
7) 2
8) 3 (?)
9) 3
10) 2
Sub aaa()
r = CDbl(InputBox("Введите радиус"))
Pi = 4 * Atn(1)
s = Pi * r ^ 2
c = 2 * Pi * r
MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub
Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
<span>end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
<span>end.
</span>
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, </span><span>z</span>);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.
Вроде правильно
N - 16 символов, К1 - 25, К2- 64, I - ?
N=2^i, 16=2^i, i=4
К= К1*К2=25*64=1600
I=i*K= 1600*4=6400 (битов)
6400 битов = 800 байтов