1. Напишите программу, которая в последовательности натуральных чисел определяет количество
трёхзначных чисел, кратных 4. Программа получает на вход количество чисел, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести
одно число: количество трёхзначных чисел, кратных 4.
2.
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число,
оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000.
Введённые числа не превышают 30 000. Программа должна вывести одно число — минимальное число,
оканчивающееся на 4.
3. Напишите программу, которая в последовательности натуральных чисел определяет количество
чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а
затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество
чисел, кратных 4, но не кратных 7.
4. Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое
двузначных чисел или сообщает, что таких чисел нет. Программа получает на вход количество чисел в
последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не
превышают 300. Программа должна вывести среднее арифметическое двузначных чисел или вывести NO,
если таких чисел в последовательности нет.
НАПИСАТЬ ПРОГРАММУ

нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу

program prim;

var i,sum,n,x   : integer;

begin

    write('n = ');

    readln(n);

    x: =2;

    sum: =2;

    i: =1;

    while sum< =n do

    begin

    x: =x+2;

    i: =i+1;

    sum: =sum+x;

end;

    writeln(i,'слагаемых');

end. 

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

1.

var a: longint;

begin

  read(a);

  if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

  if (a mod 10)> (a div 10) then writeln('вторая цифра больше');

  if (a div 10)> (a mod 10) then writeln('первая цифра больше');

end.

2.

var a,b,c: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  b: =b*b*b;

  c: =c*c*c;

  d: =4*(b+c);

  if sqr(a)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln('  квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

3.

var a,b,c,d: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  d: =c+b;

  if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

  if  d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

4.

var a,b,c,d,e: longint;

begin

  read(a);

  b: =a mod 10;

  c: =(a mod 100)   div 10;

  d: =a div 100;

  b: =b*b*b;

  c: =c*c*c;

  d: =d*d*d;

  e: =b+c+d;

  if sqr(a)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else  writeln('квадрат этого числа не равен сумме кубов его цифр.');

end.

5.

var a,b,c,d: longint;

begin

  read(b,a);

  c: =b mod 10;

  d: =b div 10;

  if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else  writeln('в запись этого числа не входит цифра 3');

  if (c=a)or(d=a) then  writeln('в запись этого числа входит цифра ',a') else  writeln('в запись этого числа не входит цифра ',a);

end.