<span>первые 20 чисел в шестнадцатеричной системе счисления
</span><span><span>[16]
</span><span>
0
</span><span>
1
</span><span>
2
</span><span>
3
</span><span>
4
</span><span>
5
</span><span>
6
</span><span>
7
</span><span>
8
</span><span>
9
</span><span>
A
</span><span>
B
</span><span>
C
</span><span>
D
</span><span>
E
</span><span>
F
</span><span>
10
</span><span>
11
</span><span>
12
</span><span>
13
</span><span>
14
</span></span><span><span><span /></span></span>
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.
Ответ:
Sub F(x)
If x > 0 Then y = Exp(x)
Else
If x < 0 Then y = Tan(x)
End If
End Sub
Объяснение:
Простейшие встроенные функции для и tg x.
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.