Ответ :
в ) отделяет один раздел програми от другого...
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
<span>a = 2 b = 0 c = 1</span>
10101001 = <span> 1*2^7 + 0*2^6 +1*2^5 + 0*2^4 + 1*2^3 +0*2^2 + 0*2^1
+ 1*2^0 = </span>128 +0 + 32 + 0 + 8 +0+0+1= 169
Л - 2
и - 3
с - 4
а - 5
пробел - 6
с - 7
ъ - 8
е - 9
л - 10
а - 11
пробел - 12
К - 14
о - 15
л - 16
о - 17
б - 18
к - 19
а - 20
(если с точкой - 21)