Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ольга1724
01.03.2020 11:54 •
Информатика
Пусть даны три высказывания: А= сумма цифр четная
В= последняя цифра кратна 3
С= вторая цифра четная
Какое из ниже указанных чисел удовлетворяет высказывание (А->C)^-В
1) 213
2) 579
3) 368
4) 442
👇
Увидеть ответ
Открыть все ответы
Ответ:
lllgglll
01.03.2020
Const
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.
4,8
(27 оценок)
Ответ:
Vladisimus
01.03.2020
Простые числа от 5584 до 6654. В скобках после каждого я поставил его сумму цифр, а в конце строки количество четных:
5591(20), 5623(16), 5639(23), 5641(16), 5647(22), - 4
5651(17), 5653(19), 5657(23), 5659(25), 5669(26), - 1
5683(22), 5689(28), 5693(23), 5701(13), 5711(14), - 3
5717(20), 5737(22), 5741(17), 5743(19), 5749(25), - 2
5779(28), 5783(23), 5791(22), 5801(14), 5807(20), - 4
5813(17), 5821(16), 5827(22), 5839(25), 5843(20), - 3
5849(26), 5851(19), 5857(25), 5861(20), 5867(26), - 3
5869(28), 5879(29), 5881(22), 5897(29), 5903(17), - 2
5923(19), 5927(23), 5939(26), 5953(22), 5981(23), - 2
5987(29), 6007(13), 6011(09), 6029(17), 6037(16), - 1
6043(13), 6047(17), 6053(14), 6067(19), 6073(16), - 2
6079(22), 6089(23), 6091(16), 6101(08), 6113(11), - 3
6121(10), 6131(11), 6133(13), 6143(14), 6151(13), - 2
6163(17), 6173(17), 6197(23), 6199(25), 6203(11), - 0
6211(10), 6217(16), 6221(11), 6229(19), 6247(19), - 2
6257(20), 6263(17), 6269(23), 6271(16), 6277(22), - 3
6287(23), 6299(26), 6301(10), 6311(11), 6317(17), - 2
6323(14), 6329(20), 6337(19), 6343(16), 6353(17), - 3
6359(23), 6361(16), 6367(22), 6373(19), 6379(25), - 2
6389(26), 6397(25), 6421(13), 6427(19), 6449(23), - 1
6451(16), 6469(25), 6473(20), 6481(19), 6491(20), - 3
6521(14), 6529(22), 6547(22), 6551(17), 6553(19), - 3
6563(20), 6569(26), 6571(19), 6577(25), 6581(20), - 3
6599(29), 6607(19), 6619(22), 6637(22), 6653(20). - 3
Всего 120 простых чисел, из них 57 имеют четную сумму цифр.
4,7
(75 оценок)
Это интересно:
М
Мир-работы
07.11.2022
Как разговаривать на рабочем месте: секреты эффективного коммуникативного процесса...
Х
Хобби-и-рукоделие
18.07.2020
Как обновить имидж куклы Барби...
19.04.2021
Как развивать позитивное отношение: советы и рекомендации...
К
Кулинария-и-гостеприимство
27.12.2020
Секреты замаринованной бамии: как сделать ее вкусной и полезной...
К
Компьютеры-и-электроника
28.05.2020
Как играть в PSP игры на Android с помощью приложения PPSSPP...
Б
Без категории
01.10.2021
Как выпустить микстейп: от выбора темы до промоушена...
Х
Хобби-и-рукоделие
08.09.2022
Как сделать тотемный столб: шаг за шагом...
Д
Дом-и-сад
19.07.2021
Как удалить пятна от дезодоранта с одежды: простые и эффективные способы...
С
Семейная-жизнь
12.05.2022
Вегетарианство и беременность: секреты сбалансированности диеты...
К
Компьютеры-и-электроника
17.08.2022
Как удалить приложения в Linux Mint: шаг за шагом руководство современного пользователя Linux...
Новые ответы от MOGZ: Информатика
liliakolokol
30.01.2021
Составить кроссворд по программированию, где обязательно должны присутствовать следующие слова: информатика, программирование, программа, исполнитель, ветвление, цикл. Остальные...
eraly2
10.11.2022
написать скрипты.(скретч) Диалог двух друзей: условие, когда надат пробел два друга идут на встречу, если касаются друг друга выдается,сообщение Привет, дрбавляется музыка....
aliaidi
30.08.2022
Вычислите сумму данных n натуральных чисел. входные данные вводится число n, а затем n чисел, сумму которых необходимо вычислить. выходные данные выведите единственное число...
katystolbova
30.08.2022
Запишите предшествующее и последующее числа для чисел: а) …, 111 в 2 с.с., …. б) …, 570 в 8 с.с, …...
lesnichka1980
16.11.2020
50 ! в программе мы создаем и заполняем динамический массив объектов класса. затем проводим сортировку массива по элементу x и выводим отсортированный массив. нужно исправить...
юла115
25.01.2020
50 ! нужно исправить программу перегрузки оператора = #include #include using namespace std; struct vector2 { int x, y, z; vector2() {} vector2(int x, int y, int z): x(x),...
академег228
11.06.2021
Выбери рисунок с красным фоном...
xetrpb
05.12.2020
Написать программу в паскале счетчика от 100 до 0...
msSisi1
30.04.2022
Выражение 1 +2+7+9 =19 и 3+4+5+8=20. какую цифру можно за одного шанс можно поменять что равенства получилось также как было...
PowerDrist
28.08.2020
Дан фрагмент алгоритма: a: =x b: =a*2+5 a: =a+b определите начальное значение переменной а, если конечное значение стало ровно 20 варианты ответа: 1 - 10 2 - 5 3 - 15...
MOGZ ответил
Фатима Алматы кілем фермасын істейді....
Даны векторы m 3i 2j и n=4j -7j .Найдите длину вектора...
3. У баладі Ф. Шиллера «Рукавичка» зіставляються світи:...
Составить схему образования связи BCl3 и CaS3...
Скажите сколько сдесь время на казахском языке...
СОР укажи название следующих элементов на рисунке прямая, луч, отрезок...
Одновременно в растворе может быть пара ионов: A) Ba2+ u SO42- C) 2H+...
1) 25 мкс = с 2) 5 см = м 3) 7 дм = м 4) 4MН = Н...
A=0.01,b=0.07 ,a*b=0,(a^b)-?...
САМИ ПОПРОБУЙТЕ МИНИ-СОЧИНЕНИЕ НАПИСАТЬ! ПОТОМУ ЧТО УЧИТЕЛЬНИЦА РУГАЕТ,...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.