8 задания во всем мире
9 задания
1 сеть
2 сайт
Begin
// ввести значения массива а и значение Q
for i:=1 to 8
for j:=1 to 9
if a[i,j]>Q then
begin
sum=sum+a[i,j];
kol=kol+1;
end;
if kol>0 then
sr=sum/kol;
write('srednee= ',sr);
else
write('net takih chisel');
end.
Вес символа в данном алфавите 8бит=1байт, тогда сообщение 34*1=34байта
Var a:real;
begin
read(a);
if a mod 17 = 0 then begin
write(a*2*3);
end;
else begin
write(a-4);
end;
end.