Напишите программку, которая в последовательности натуральных чисел определяет количество
Напишите программку, которая в последовательности естественных чисел определяет количество чисел, кратных 6. Программка получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6.
Задать свой вопрос2 ответа
Tigranova Polina
include lt;iostreamgt;
int main()
int n, c = 0;
for(std::cin gt;gt; n; n gt; 0; n--)
int a;
std::cin gt;gt; a;
if(a%6 == 0) c++;
std::cout lt;lt; c lt;lt; std::endl;
int main()
int n, c = 0;
for(std::cin gt;gt; n; n gt; 0; n--)
int a;
std::cin gt;gt; a;
if(a%6 == 0) c++;
std::cout lt;lt; c lt;lt; std::endl;
Злата
Я ваш ответ не отмечала как не верный,я отметила верхний как не верный,а не ваш
Никита Фательников
А нет ваш не правильный оказался,а нижний верный
Диман Агадулин
Я не хочет продолжать с вами общении,если я отметила,что ваш ответь не верен то примите это к сведению,а не пытайтесь обосновать,что ваш ответ правилен.
Алла
пф)))
Bolbesov Maksim
1. Современное решение "в одну строку" (тут больше и не надобно)
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadlnInteger).Where(k-gt;k mod 6=0).Count)
end.
Пример
3
18 26 24
2
2. Школьное решение в стиле ТурбоПаскаль 1983г
var
n,i,k,a:integer;
begin
Readln(n);
k:=0;
for i:=1 to n do
begin
Read(a);
if a mod 6=0 then k:=k+1
end;
Writeln(k)
end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadlnInteger).Where(k-gt;k mod 6=0).Count)
end.
Пример
3
18 26 24
2
2. Школьное решение в стиле ТурбоПаскаль 1983г
var
n,i,k,a:integer;
begin
Readln(n);
k:=0;
for i:=1 to n do
begin
Read(a);
if a mod 6=0 then k:=k+1
end;
Writeln(k)
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов