1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
Const
n = 8;
var
i, j, umax, lmax: integer;
a: array[1..n, 1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(40) - 20;
write(a[i, j]:4)
end;
writeln;
end;
umax := -100;
for i := 1 to n do
for j := i to n do
if umax < a[i, j] then umax := a[i, j];
lmax := -100;
for i := 1 to n do
for j := 1 to i do
if lmax < a[i, j] then lmax := a[i, j];
writeln('Разность максимумов равна ', umax - lmax)
end.
Тестовое решение:
Исходный массив
-5 18 -13 1 -16 5 0 -13
4 -18 -17 -14 2 10 -2 -15
-15 -8 -6 -16 -10 -12 -18 -17
-18 6 11 -5 4 -6 -1 1
10 14 3 -7 2 11 10 -1
6 -2 -20 1 4 9 13 -4
-9 -7 4 -6 -12 3 1 -14
15 -16 -1 -3 13 -15 3 -10
Разность максимумов равна 3
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
1) 110100,11₂ = 2⁵+2⁴+2²+1/2+1/4=32+16+4+2/4+1/4=52=52,75
123,41₈=8²+2*8+3+4/8+1/64=64+16+3+33/64=83,515625
1DE,C8₁₆=16²+13*16+14+12/16+8/256=478,78125
2) 1001111110111,0111₂=11767,34₈=5111,7₁₆
1011110011100,11₂= 13634,6₈=179C,C₁₆
<span>3) 1011₂+11₂=1110₂ </span>
1011₂+111,1₂=10010,1₂
11₂+111,1₂= 1010.1₂
1011₂=11
11₂=3
111,1₂=7.5
1110₂=14
10010.1=18.5
1010.1₂=10.5
4) 101₂*1111,001₂= 1001011,101₂
101₂=5
1111,001=15.125
<span>1001011,101₂=75,625</span>