Ну камон хелп пиз по информатике 8 класс ​

на коком языке програмирования?

While: var   n: integer; begin   write('введите начало диапазона (n): ');   readln(n);   while n < 150 do   begin       if n mod 10 = 3           then  write(n, ' ');       n : = n + 1; end; end. for: var   n, i: integer; begin   write('введите начало диапазона (n): ');   readln(n);   for i : = n to 150 do       if n mod 10 = 3           then  write(i, ' '); end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! ** 1 ** begin   var a: =arrrandom(20,0,10); a.println;   var m: =a.average;   writeln('число элементов, меньших среднего ',a.where(t-> t< m).count) end. пример 8 2 7 5 8 0 0 9 9 3 0 10 10 0 5 10 4 9 1 5 число элементов, меньших среднего 11 ** 2 ** begin   var k: =readinteger('n=').tostring.where(c-> c='0').count;   if k=0 then writeln('нет') else writeln(k) end. пример n= 25204301 2