#include <bits/stdc++.h>
using namespace std;

int main()
{
    int n;
    cin >> n;
    int ans = 0, cur;
    for (int i = 0; i < n; i++)
    {
        cin >> cur;
        ans += (cur % 3 == 0);
    }
    cout << ans;
}

0 0

4 года назад

Прочитать ещё 2 ответа

Имеются три гири массой 1 кг, 2 кг, 4 кг и чашечные весы. Разрешено класть гири только на одну чашу весов. В утверждении: " На в

ИринкаСавченко [10]

1. (1кг)___( ? )
2. (2кг)___( ? )
3. (1кг + 2кг)___( ? )
4. (4кг)___( ? )
5. (4кг + 1кг)___( ? )
6. (4кг + 2кг)___( ? )
7. (4кг + 2кг + 1кг)___( ? )

Ответ: на весах можно взвесить любой целый вес от 1 до 7.

0 0

4 года назад

Помогите пжл по паскалю задачки

Вся в догадках

var i, a:longint;

begin

read(a);

for i:=1 to 1000 do

if (100 <= a * i) and (a * i <= 999) then

write(a * i, ' ')

end.

{$N+} (*Enable 287 soprocessor*)

var i:longint;

a:extended;

begin

read(a);

for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);

end.

0 0

3 года назад

Решите пожалуйста. По фотографии

Роман258

Вот так как то, если неправильно, напишите в комментах

program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
    else
      if a>c then writeln (b,c,a)
      else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
    if b>c then writeln (a,c,b)
    else write(a,b,c)
end;
end.

0 0

4 года назад