Const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.
-2, 8, 18, 28, 38, 48, 58, 68, 78, 88
Второе задание ответ : 2)
Первое задание ответ: разрядность 6
1)Двойку в 20-ю степень возведите
3)<span>83/8=10,375, округляем 11 байт ............... </span>