Разгадай слово!
Составь слова, используя буквы одного цвета

n = 2^i

n = 2^5 = 32

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

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

не ворую

не лгу

слабым 

№1

program z1;

var n: integer;

begin

write ('введите число n: ');

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.