Сколько байт необходимо чтобы записать 8^23

8^23 = 2^(3*23) = 69 бит..

в байте 8 бит.. 69/8=8, то есть 9

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.