Написать прогу на пвскале 6. дано натуральное число n (n > 9 определить количество нулей, идущих подряд в младших разрядах данного числа. пример.n = 1020000. количество нулей равно четырем.

var n,i: integer; beginreadln(n); while (n mod 10=0) do begin inc(i); n: =n div 10; end; writeln(i); end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   var a: =new integer[n,m];   for var j: =0 to m-1 do       if j.iseven then a.setcol(j,range(n*j+1,n*(j+)       else a.setcol(j,range(n*(j+1),n*j+1,-1).toarray);   a.println(4) end. пример количество строк и столбцов в матрице: 3 4     1    6    7  12     2    5    8  11     3    4    9  10

2. var n,s,i: integer; begin writeln ('программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n> 11)'); write ('введите n: '); readln (n); for i: =11 to n do if i mod 2 = 1 then s: =s+i; writeln ('сумма нечетных чисел от 11 до ',n,' равна ',s) end. 1. var a,b: real; begin writeln ('программа для решения уравнения ax=b'); write ('введите a и b: '); readln (a,b); if (a=0) and (b=0) then writeln ('x - любое число') else if (a=0) and (b< > 0) then writeln ('решений нет') else writeln ('x = ',b/a) end.