Напишите наименьшее целое число x, для которого истинно высказывание не (x<=10) и (x<42​

фамилия

                  имя

          отчество

var

s,n,i: integer;

begin

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

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.