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

Program hhh54;
var i,x,k:longint;
begin
  k:=0;
  for i:=1 to 1000 do
    begin
      read (x);
      if x mod 6 = 0 then k:=k+1;
      if x = 0 then 
        begin
          break
        end;
    end;
  write (k-1);
end.

Сделал вот так: c++выделить код#include < iostream> #include < cstring> using namespace std; int main(){const int biograthy = 30; char fname[biograthy]; char lname[biograthy]; char flname[biograthy]; cout < < "enter your first name: "; cin.getline(fname, biograthy); cout < <
"enter your last name: "; cin.getline(lname, biograthy); strcpy(flname, fname); strcat(flname, lname); cout < < "here's the information in a single: " < < flname < < endl; system("pause"); return 0; }

program p1;

uses graphabc;

var a,k,k2: integer;

begin

readln(a);

a: =a*20;

setpenwidth(1); //размер кисти, если большой, то лучше видно пунктир, маленький - качество и точность

setwindowsize(4*a,3*a);

k: =round(a/2);

k2:
=round(0.43*a);

rectangle(a,a+k,2*a,2*a+k); //прямоугольник - передняя часть куба

line(a,a+k,a+k2,a); // левое верхнее ребро

line(2*a,a+k,2*a+k2,a); //правое верхнее ребро

line(2*a,2*a+k,2*a+k2,2*a); //правое нижнее ребро

line(a+k2,a,2*a+k2,a); // заднее верхнее
ребро

line(2*a+k2,a,2*a+k2,2*a); //правое заднее ребро

setpenstyle(psdash); // выбрать тип пера - пунктир

line(a+k2,a,a+k2,2*a); //заднее левое ребро

line(a,2*a+k,a+k2,2*a); //нижнее левое ребро

line(a+k2,2*a,2*a+k2,2*a); //заднее нижнее ребро

end. (программа по
созданию кубов если тебе понравился мой ответ ставь ! )