ИгоревичАндрей

05.09.2021

Решите поберегите мои нервы.

Информатика

Ответить

Ответы

yliana

05.09.2021

var

a,k,n,i:integer

begin

k:=0;

readln(n);

for i:=1 to n do

begin;

readln(a);

if (a mod 3=0)

then k:=k+1;

end;

writeln(k);

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решите поберегите мои нервы.

▲

Решите поберегите мои нервы.

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дана программа:Program Primer;VarN, result : real;Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((2+N)5); Writeln ('sqr((2+N)5)', result:8:0); Readln;End.Запу...

Даны три точки a, b, c на числовой оси. точка c расположена между точками a и b. найти произведение длин отрезков ac и bc. напишите код, можно без обьяснений, . java и c++

Расставьте порядок выполнения логических операций. Вычислите логическое выражение. А={12-0=12}, В={Новый год – это праздник}, С={3<=1}(С и неВ) и (А или С

Один мальчик так росказал о себе: "у меня 24 пальцев, на каджной рукк по 5, а на ногах 12".как это может быть

Числова константа 0, 00045 може бути записана у вигляді

Последовательный (алгоритм действий )перевод в биты : 5 кбайт = ? 2 мбайт = ?

Как будут выведены значения переменных: Writeln(A, B)? 1.в строчку через пробел; 2.в столбик; 3.в строчку без пробела; 4.в строчку через 14 позиций;

При какого объекта вводятся флажки в приложение?

Решите поберегите мои нервы.

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дана программа:Program Primer;VarN, result : real;Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((2+N)*5); Writeln ('sqr((2+N)*5)', result:8:0); Readln;End.Запу...

Даны три точки a, b, c на числовой оси. точка c расположена между точками a и b. найти произведение длин отрезков ac и bc. напишите код, можно без обьяснений, . java и c++

Расставьте порядок выполнения логических операций. Вычислите логическое выражение. А={12-0=12}, В={Новый год – это праздник}, С={3&lt;=1}(С и неВ) и (А или С​

Один мальчик так росказал о себе: "у меня 24 пальцев, на каджной рукк по 5, а на ногах 12".как это может быть

Числова константа 0, 00045 може бути записана у вигляді

Последовательный (алгоритм действий )перевод в биты : 5 кбайт = ? 2 мбайт = ?

Как будут выведены значения переменных: Writeln(A, B)? 1.в строчку через пробел; 2.в столбик; 3.в строчку без пробела; 4.в строчку через 14 позиций;

При какого объекта вводятся флажки в приложение?

Дана программа:Program Primer;VarN, result : real;Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((2+N)5); Writeln ('sqr((2+N)5)', result:8:0); Readln;End.Запу...

Расставьте порядок выполнения логических операций. Вычислите логическое выражение. А={12-0=12}, В={Новый год – это праздник}, С={3<=1}(С и неВ) и (А или С