Program one;var A, B, x: real;beginwriteln ('Введите А и В');readln (A, B);A:=A+10;B:=B/4;x:=A-B;A:=A*x;Writeln (A);end.
Шапочка( суффикс-очк, окончание-а), домики ( суффикс-ик, окончание и).
1.
а) 111000111=455
б) 11011.01=27.25
2.
164=<span>10100100
3.
23CE=</span><span>10001111001110
Остальные не смогу.
</span>
Dim Massiv(9) As Integer
Dim Max As Integer
Dim x As Integer
Max = Massiv(0)
For x = 1 To 9
If Massiv(x) > Max Then Max = Massiv(x)
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox(Max)</span>
<span>2) basa.txt, третий вариант не подходит как так там стоит ":"</span>