Введите с клавиатуры 8 положительных целых чисел. определите, сколько из них делятся на 3 и при этом заканчиваются на 4. программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 4.

Var numb,count,k: integer; begin for k: = 1 to 8 do begin readln(numb); if (numb mod 10 = 4) and (numb mod 3 = 0) then count: =count+1; end; writeln(count); end.

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var a,b,h,x: real;   write('введите a b h: '); read(a,b,h);   if a> b then swap(a,b); // поменять местами   if h< =0 then writeln('шаг h должен быть положительным')   else begin       x: =a;       while x< =b+h/2 do begin // +полшага на погрешность накопления           writeln('x=',x: 0: 4,',  y=',x> 0? 1/x-5: 2*x);           x+=h           end       end end. тестовое решение: введите a b h: -2.46 3.73 0.18 x=-2.4600,  y=-4.92 x=-2.2800,  y=-4.56 x=-2.1000,  y=-4.2 x=-1.9200,  y=-3.84 x=-1.7400,  y=-3.48 x=-1.5600,  y=-3.12 x=-1.3800,  y=-2.76 x=-1.2000,  y=-2.4 x=-1.0200,  y=-2.04 x=-0.8400,  y=-1.68 x=-0.6600,  y=-1.32 x=-0.4800,  y=-0.96 x=-0.3000,  y=-0.6 x=-0.1200,  y=-0.24 x=0.0600,  y=11.6666666666667 x=0.2400,  y=-0.83333333333333 x=0.4200,  y=-2.61904761904762 x=0.6000,  y=-3.33333333333333 x=0.7800,  y=-3.71794871794872 x=0.9600,  y=-3.95833333333333 x=1.1400,  y=-4.12280701754386 x=1.3200,  y=-4.24242424242424 x=1.5000,  y=-4.33333333333333 x=1.6800,  y=-4.4047619047619 x=1.8600,  y=-4.46236559139785 x=2.0400,  y=-4.50980392156863 x=2.2200,  y=-4.54954954954955 x=2.4000,  y=-4.58333333333333 x=2.5800,  y=-4.61240310077519 x=2.7600,  y=-4.63768115942029 x=2.9400,  y=-4.65986394557823 x=3.1200,  y=-4.67948717948718 x=3.3000,  y=-4.6969696969697 x=3.4800,  y=-4.71264367816092 x=3.6600,  y=-4.72677595628415

Const nx =50; var z: array[1..nx] of integer; i,j,n,m,d,s,s1,k: integer; sr: real; begin write ('введите число элементов n'); read(n); for i: = 1 to n do begin z[i]: = random(30)-5; write(z[i]: 3); if z[i]=0 then m: =i; end; writeln; if m > 0 then begin for j: =1 to n do begin if (j< m) and (z[j] mod 2 = 0) then   s: = s + z[j]; if (j> m) and (z[j] mod 2 = 1) then begin s1: = s1 + z[j]; k: = k +1; end; end; end else begin writeln; for i: =1 to n do begin for j: =2 to n do begin if z[j] > z[j-1] then begind: =z[j-1];   z[j-1]: =z[j];     z[j]: = d; end; end; end; end; writeln; sr: = s1 /k; if m > 0 then begin writeln('сумму нечетных чисел от последнего нулевого значения до z[n]', s: 6); write('среднее арифметическое четных чисел, находящихся в массиве до последнего нуля ', sr: 6: 3); end else for j: =1 to n do write(z[j]: 3); end.