Держи, два в одном.
1) Четыре слова задаются в массиве, константы.
2) В переменную вводишь полное ФИО, программа разбирает в массив и после выводит.
Правильный ответ вроде b проведения меня кто знает
1) 1001010101 (2)= 1125(8) = 255(16)
2) 417
3) 1023
4) 196
5) 11000101
6) 10110100
7) 1111
A=13, R=0
A=12, R=3
A=6. R=6
A=3, R=12
A=2, R=15
A=1, R=30
A=0, R=33
<span>
A=0, R=33</span>
Var a,b,y:integer;
begin
writeln('Введите 2 числа a и b'); readln(a,b);
if a=b
then y:=1
else if a>b
then y:=2
else y:=3;
writeln('y= ', y);
end.