Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание LN), и паскаль просто не видел никакие числа, кроме первого.
И очень муторный и непонятный код, я переписал немножко:

var
col, a: integer;

begin
col := 0;Read(a);
while a <> 0 do
begin
    read(a);
    if (a mod 3 = 0) and (a mod 2 = 0) then
      col := col + 1;
end;
writeln('количество ', col);
end.

Пример:
6 12 9 36 0
количество 3

0 0

3 года назад

дано натуральное число n. Вычислить у=1*3*5...*(2n-1). Составить программу на языке Паскаль.

алмаз1988

Program n1;
Uses CRT;
Var i,n,m: integer;
begin
ClrScr;
writeln('Vvedite n');
readln(n);
i:=1; m:=1;
while i<2*n-1 do
begin
i:= i+2;
m:= m*i;
end;
writeln(m);
readln
end.

0 0

4 года назад

Существенным ...... будем называть такое свойство которое наиболее важно для нас в данной ситуации

ваня 1111

Доказательством ..... Ну может. Хотя.. Просто странно

0 0

4 года назад

Исходное данное — трёхзначное число x. Выполни для x=176 следующий алгоритм. a:=x div 100 b:=x mod 100 c:=x mod 10 s:=a+b+c Пом

Виктор5959 [14]

А:176/100=1
b:176/100=76
c:176/10=6
s:1+76+6=83

0 0

4 года назад