Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
antarxanoff2001
14.12.2022 01:27 •
Информатика
Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.
👇
Увидеть ответ
Ответ:
Sasha1998rus
14.12.2022
Program gt;
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.
4,7
(21 оценок)
Открыть все ответы
Ответ:
salavat5sal
14.12.2022
1)
typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(20, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], pos{0}, neg{0};
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] % 2 == 0) ++pos;
else ++neg;
}
cout << endl << pos << "/" << neg << endl;
system("pause");
}
2)
typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(0, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], lf{ 0 }, hf{ 0 }, sum1{ 0 }, sum2{ 0 };
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] >= 50) {
++lf;
sum1 += arr[i];
} else {
++hf;
sum2 += arr[i];
}
}
cout << endl << sum1 / lf << "/" << sum2 / hf << endl;
system("pause");
}
4,6
(27 оценок)
Ответ:
alinka12152002
14.12.2022
1)
typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(20, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], pos{0}, neg{0};
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] % 2 == 0) ++pos;
else ++neg;
}
cout << endl << pos << "/" << neg << endl;
system("pause");
}
2)
typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(0, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], lf{ 0 }, hf{ 0 }, sum1{ 0 }, sum2{ 0 };
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] >= 50) {
++lf;
sum1 += arr[i];
} else {
++hf;
sum2 += arr[i];
}
}
cout << endl << sum1 / lf << "/" << sum2 / hf << endl;
system("pause");
}
4,5
(13 оценок)
Это интересно:
К
Компьютеры-и-электроника
07.02.2023
Как записать DVD диск: подробное руководство...
К
Кулинария-и-гостеприимство
23.03.2020
Простой и вкусный рецепт вегетарианской лазаньи, который вы полюбите...
Х
Хобби-и-рукоделие
17.12.2021
Как починить молнию, если бегунок полностью соскочил...
Д
Дом-и-сад
03.03.2022
Как избавиться от хлама в доме: легкие способы на все случаи жизни...
С
Стиль-и-уход-за-собой
07.05.2021
Как удалить застрявший тампон...
К
Кулинария-и-гостеприимство
31.10.2020
Идеальные начос: как приготовить?...
О
Образование-и-коммуникации
07.05.2020
Как научиться рисовать людей: советы и примеры...
09.07.2022
10 советов как убедить родителей позволить вам завести маленькую собаку...
Ф
Философия-и-религия
20.10.2020
Как облечься во Всеоружие Божие: наставление для верующих...
К
Кулинария-и-гостеприимство
13.05.2023
Как отчистить старые кастрюли быстро и безопасно...
Новые ответы от MOGZ: Информатика
superplay06
07.02.2021
Сообщение на тему Вредоносная программа . Выбрать одну программу описать своими словами ее назначение, принцип действия, признаки присутствия в системе, меры профилактики...
захар188
23.03.2020
Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом: Если цепочка начинается с согласной буквы, Шифровальщик меняет местами первую...
Vaprosic
21.10.2020
Исполнитель Удвоитель работает с целыми числам. Он умеет выполнять только две команды: 1) прибавь 1; 2) умножь на 2. Исполнитель выполнил программу 121122 и получил число...
samuray99
28.05.2021
Буду очень благодарна если...
Настечок
27.03.2020
:) 1. Выпишите недопустимые имена переменных: a) Nomer; b) S34; c) И92; d) Kol_vo54; e) 45_A; i) fg-л23 2. Установите соответствие (таблица) между переменной и типом данных:...
vitaly1552
15.01.2022
Расположите по порядку оформление автооглавления. 1) ссылки — добавить текст, выбираем уровень оглавление — автособираемое оглавление, выделяете текст который необходимо...
раопп
22.09.2021
Какая фигура получится после выполнения программы? переменная x пероопустиx=100 повтори 3 [вперед x направо x+20 x=x+30]...
katarinka377
01.07.2020
Сделать заданния с черным ящиком , с чательным обьяснением , 98 б...
Дура007
02.04.2021
Записать блок схему в паскале...
Мертвый0Анархист
20.06.2021
Чем отличается облачное хранилище от серверов....
MOGZ ответил
Речення з фразеологізмами : блукати потемки,аж волосся дибки стало,з...
Сообщение об флота 1 класс азбука 70 стр....
Сообщение на тему период покоя у животных...
Portfolio: my room rules. make a poster. write what people must,mustn...
Всша пользовалась популярностью теория «плавильной печи». предполагалось,...
Развитие городов греции к : 1) расцвету ремесла и торговли 2) упадку...
I. вставьте пропущенные буквы. выпишите примеры, в которых сочетания...
Характерные признаки медузы в крацие...
Вставте ,де потрібно знак м якшення зі ка, гарнен..кий , бат..ківс..кий,...
Ты сядишь дома и тут вырубился свет и началось земле тресение тебе надо...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.