Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, меньших 500 и кратных 3. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.

Program gt; var a,h: longint; begin read(a); h: =0; while (a< > 0) do begin if(a< 500)and(a mod 3=0)then h: =h+1;       //или inc(h) вместо h: =h+1; read(a); end; writeln(h); end.

Var n, m, x, y, i, j: integer; begin   write('n='); readln(n);   write('m='); readln(m);   write('x='); readln(x);   write('y='); readln(y);       for i : = -1 to 1 do     for j : = -1 to 1 do       if (i < > j) and (i < > -j) and           (x+i> 0) and (x+i< n+1) and           (y+j> 0) and (y+j< m+1) then           writeln('(', x+i, ',', y+j, ')'); end.

Const n = 4; var x, y, z: real;   i: integer; begin   write('проходной = ');     readln(x);   for i : = 1 to n do begin     write('оценка ', i, ' = ');       readln(z);     y : = y + z;   end;   if y/n > = x then      writeln('поступил')   else     writeln('не поступил'); end. // вторая var i, k: integer;   a, b: string; begin   write('k = ');   readln(k);   write('строка = ');   readln(a);   for i : = 1 to length(a) do     if i mod k > 0 then        b : = b + a[i];   writeln(b); end.