1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>
б) да.
Моделирование представляет собой один из основных методов познания, является формой отражения действительности и заключается в выяснении или воспроизведении тех или иных свойств реальных объектов, предметов и явлений с помощью других объектов, процессов, явлений, либо с помощью абстрактного описания в виде изображения, плана, карты, совокупности уравнений, алгоритмов и программ.
5A316 = 3·160+10·161+5·162
= 3·1+10·16+5·256 = 3+160+1280 = 144310
0hex
=
0dec
=
0oct
0
0
0
0
1hex
=
1dec
=
1oct
0
0
0
1
2hex
=
2dec
=
2oct
0
0
1
0
3hex
=
3dec
=
3oct
0
0
1
1
4hex
=
4dec
=
4oct
0
1
0
0
5hex
=
5dec
=
5oct
0
1
0
1
6hex
=
6dec
=
6oct
0
1
1
0
7hex
=
7dec
=
7oct
0
1
1
1
8hex
=
8dec
=
10oct
1
0
0
0
9hex
=
9dec
=
11oct
1
0
0
1
Ahex
=
10dec
=
12oct
1
0
1
0
Bhex
=
11dec
=
13oct
1
0
1
1
Chex
=
12dec
=
14oct
1
1
0
0
Dhex
=
13dec
=
15oct
1
1
0
1
Ehex
=
14dec
=
16oct
1
1
1
0
Fhex
=
15dec
=
17oct
1
1
1
1
14 детей в классе
7 математика
5 оба
2 только история
12 девочек и мальчиков
9 мальчиков
3 девочки