Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
vika1722
06.06.2020 00:27 •
Информатика
Определить,делителем каких чисел а,в,с является число к. (в паскале)
👇
Увидеть ответ
Ответ:
ровно63
06.06.2020
Если задание действительно правильно задано, то вот:
Program Zadacha;
Var K: Integer;
Begin
Write('K = ');
ReadLn(K);
WriteLn('A = ', K * 2);
WriteLn('B = ', K * 3);
WriteLn('C = ', K * 4);
ReadLn;
End.
4,4
(73 оценок)
Открыть все ответы
Ответ:
bacongurl1
06.06.2020
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
const int n = 10;
int a[n];
int k=0;
srand(time(0));
for (int i = 0; i < n; i++) {
a[i]=-20 + (101.0 / RAND_MAX) * rand();
cout << a[i] << " ";
}
cout <<"\n";
cout << "Чётные числа:\n";
for (int i = 0; i < n; i++){
if (a[i] % 2 == 0) {
cout << a[i] << " ";
k++;
}
}
cout <<"\n";
if (k > n-k) cout << "Чётных больше";
else if (k < n-k) cout << "Нечётных больше";
else cout << "Чётных и нечётных поровну";
cout <<"\n";
return 0;
}
Пример:
27 11 77 59 28 8 59 64 16 80
Чётные числа:
28 8 64 16 80
Чётных и нечётных поровну
4,4
(31 оценок)
Ответ:
Тотах
06.06.2020
#include <cstdlib>
#include <ctime>
#include <iostream>
using namespace std;
int main() {
int n=10,k=0;
int a[n];
srand(time(NULL));
cout<<"array:"<<endl;
for (int i=0; i<n; i++)
{
a[i]=rand() % 50;
cout<<a[i]<<" ";
}
cout<<endl;
for (int i=0; i<n; i++)
if (a[i]%2==0 && a[i]!=0) {
cout<<a[i]<<" ";
k++;
}
cout<<endl;
if (k>n-k) cout<<"четных больше";
else if (k<n-k) cout<<"нечетных больше";
else cout<<"равное количество";
cout<<endl;
system("pause");
return(0);
}
4,4
(22 оценок)
Это интересно:
З
Здоровье
04.03.2023
Как правильно накладывать повязку на вывихнутое плечо: подробный обзор и инструкция...
О
Образование-и-коммуникации
16.09.2020
Как перестать жалеть о своих решениях?...
К
Кулинария-и-гостеприимство
02.08.2022
Как приготовить рисовое молоко: рецепт и преимущества...
К
Кулинария-и-гостеприимство
11.04.2021
Как правильно хранить печенье макарон: советы и рекомендации...
Д
Дом-и-сад
30.08.2022
Узнайте, как избавиться от статического электричества в несколько простых шагов...
К
Кулинария-и-гостеприимство
06.05.2020
Как пить шотландский виски: лучшие способы и рекомендации...
З
Здоровье
27.06.2020
Как понизить артериальное давление быстро и эффективно?...
К
Компьютеры-и-электроника
21.05.2022
Как восстановить игру League Of Legends: шаг за шагом...
Х
Хобби-и-рукоделие
23.06.2021
Как стать профессиональным игроком?...
К
Компьютеры-и-электроника
16.10.2021
Как использовать RealVNC: простой и эффективный способ удаленного управления компьютером...
Новые ответы от MOGZ: Информатика
Евгений112576
18.09.2021
Подскажите лучший сервер для samp rp на пк...
laurenR
20.07.2021
РЕШИТЬ Напишите программу, которая считывает последовательность из 10 целых чисел и определяет является ли каждое из них четным или нет. Формат входных данных На вход...
andreyusachevp0cxzy
24.05.2022
Program vhrt_; var y;x;1;-x;-x+3: integer; begin writeln( введите значение x ); readln (x); if x 0 then writeln ( y= ,-x+3); end. prog.pas(2,8) Fatal: Syntax error,...
shumilovakate
29.01.2020
НАЧАЛО 2. По приведённой блок-схеме определите, что Выведет данная программа в ответ, если х равен: Х а) -2 да нет хэ5? б) -25 х=х- 10 ух+ 10 в) 11 г) 34 вывод x КОНЕЦ...
Кричащийёж
21.03.2020
2 задачи, можно обязательно с дано и решением ...
hdhdhdhehd
22.02.2020
Сравните бумажную и компьютерную технологии создания текстовых документов,разместив на схеме описания их достоинств и недостатков: ....
alenadasha80
06.06.2021
Составь скрипт в результате которого автоматически поменяются фоны, указанные с несколькими рисунками и произвучит музыка...
baubaubau
26.11.2020
Книга содержит 132 страниц. На каждой странице 40 строк. В каждой строке 58 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ...
вика3879
03.03.2020
Подпишитесь на исту da.shu.tka...
sofitit0410
14.03.2023
Разработать программу вычисления значений заданных функций для произвольных значений исходных данных. Выполнить тестовый расчет и расчет для заданных значений исходных...
MOGZ ответил
Рассчитать массу оксида фосфора (v), образующегося при сжигании...
Какие органы главным образом изменялись у предков человека в процессе...
Длина прямоугольника на 4 м больше ширины.его площадь 165кв м надите...
Семейство , для которого характерны цветки одинакового строения...
Витамин c симптомы авитаминоза и гиповитаминоза...
Поймали 56 рыб: окуней лещей и щук.окуней и лещей вместе 48.окуней...
В17 веке первым из царей послал людей учиться в...
При окислении 17,2 г альдегида аммиачным раствором оксида серебра...
Вкакой сказке-притче есть фонарщик, правитель,лётчик и даже бухгалтер....
Объясни вычисления. 1) 68-9= 2) 79+7= 3) 94-9= 4) 46+5= 5) 32-8=...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Program Zadacha;
Var K: Integer;
Begin
Write('K = ');
ReadLn(K);
WriteLn('A = ', K * 2);
WriteLn('B = ', K * 3);
WriteLn('C = ', K * 4);
ReadLn;
End.