Решить ребус:X = А + В. А — пятая буква русского алфавита; В — его предъявляют в суде. 2. Х= А+ В+ С. А — отдельное движение в танце;В — четырнадцатая буква русского алфавита;С — название древнерусской буквы «Ъ».3.X = А + В. А — снаряд для метания в легкой атлетике; В — двукрылое насекомое, слепень 4. Х= А+ В+ С. А — предлог, означающий местонахождение предмета вне чего-нибудь;В — товар, предметы, принимаемые для перевозки; С — название двенадцатой буквы русского алфавита.5.Х= А+ В. А — отдельное движение в танце; В — художественный образ, созданный драматургом и воплощаемый актером.6. Х= А+ В+ С. А — приставка из трех букв;В — единица измерения​

Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.

n = 2^i

n = 2^5 = 32

ответ. в классе 32 ученика

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

 

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

 

или

 

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;