16 бит=2 Байта. 100х100 точек => Требуемый объем = 100*100*2= 20000 Байт
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
write('Оценки абитуриентов: ');
for i:=1 to n do a[i]:=random(4)+2;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]=2 then
inc(k);
write('Не допущены к повторному экзамену ',k,' абитуриента(-ов) ');
<span>end.</span>
Python 3.7.0
===========================
x = int(input("x = "))
if (x < 5):
y = (4 * x * x + 1) / (x - 5)
elif (x >= 5):
y = 3 * x * x - 2
print(y)
Const e=0.001;
var a1,a2:real;n:integer;
begin
a1:=0.5;
a2:=sin(a1)/cos(a1)/2;
n:=2;
writeln(n,a2:7:4);
while abs(a2-a1)>=e do
begin
a1:=a2;
a2:=sin(a1)/cos(a1)/2;
n:=n+1;
writeln(n,a2:7:4);
end;
writeln('n = ',n);
end.
Результат:
<span>2 0.2732
3 0.1401
4 0.0705
5 0.0353
6 0.0177
7 0.0088
8 0.0044
9 0.0022
10 0.0011
11 0.0006
n = 11</span>
Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.