Легко: exbnrh' это английская кодировка
Var s: array[1..4] of string=('тысяч - ','сотен - ','десятков - ','единиц - ');
<span> nm: string;
</span><span> i: integer;
</span><span>begin
</span><span> write('n = '); readln(nm);
</span><span> for i:=1 to 4 do
</span><span> writeln('цифра ',s[i],nm[i]);
</span><span>end.
</span>
n = 9214
<span>цифра тысяч - 9
</span><span>цифра сотен - 2
</span><span>цифра десятков - 1
</span><span>цифра единиц - 4
</span>
Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
1) Роднина и биология 86 ≥ химия 74
2) Черепанова или (Биология 92 ≥ Химия 83)
3) Математика 74 ≥ 60 или (Информатика 43 ≤ 60)
4) Математика 94 ≥ 60 и информатика 64 ≥ 60