1) а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7
2) a) readln(а); readln(х);
б) writeln(z)
в) var b,c : real; (чаще всего используется при нахождении вещественных чисел)
var a: integer; (чаще всего используется при нахождении вещественных чисел)
г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)PROGRAM PR1;
var n:integer;
begin
for n:=1 to 7 do
writeln('trud');
end.
ответ:Binary coding — 0010101101010010010101110100101
00101101101100010000101000100110
00101100001001101010100100101011
101010000
Informatica — 0011001001010111010011110101100
00101101101010110010010100101110
1010100100100110001001010
Kazakhstan — 0011010001001010011000110100101
00101010001010001010111000101110
10100101001010111
Rykhani jangyry — 0011101101100010010101000101000
10100101001010111010100100001010
00101001101001010010101110101000
00110001001011011011000100000111
00001110000101100010010110101101
10000111000011011001011110000111
00001110000101110
Объяснение: