Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Lilu700
06.02.2021 21:38 •
Информатика
Здравствуйте! Решите тест,уже час бьюсь,не могу сделать(
👇
Увидеть ответ
Открыть все ответы
Ответ:
HateLove7
06.02.2021
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
ответ:
6 28 496 8128
4,4
(26 оценок)
Ответ:
elvin123451
06.02.2021
#include <iostream>
#include <cstdlib>
#include <iomanip>
using namespace std;
int const n=6;
int const m=6;
int main() {
int a[n][m];
int sm;
// установка генератора случайных чисел
srand(time(NULL));
// генерация массива и вывод на экран
for (int i=0; i<n; i++) {
for (int j=0; j<m; j++) {
a[i][j]=rand()%50-20;
cout<<setw(7)<<a[i][j];
}
cout<<endl;
}
// обработка массива
for (int i=0; i<m; i++) {
sm=0;
for (int j=0; j<n; j++) sm+=a[j][i];
for (int j=0; j<n; j++)
if (2*a[j][i]>sm) cout<<j+1<<" "<<i+1<<endl;
}
system("pause");
return 0;
}
-16 -2 15 4 7 3
-13 16 3 16 -13 3
0 19 20 6 20 -18
-19 7 1 10 -11 25
5 4 3 21 28 -13
26 -19 -7 12 -20 11
1 1
2 1
3 1
5 1
6 1
3 5
5 5
4 6
4,8
(72 оценок)
Это интересно:
В
Взаимоотношения
17.05.2021
Как правильно флиртовать с Раками: знак зодиака и любовные отношения...
03.03.2023
Как пригласить девочку на свидание в пятом классе...
И
Искусство-и-развлечения
30.04.2020
Как стать сопрано, если вы альт (для девушек)...
Х
Хобби-и-рукоделие
31.03.2023
Чистка масляных картины: все, что нужно знать, чтобы сохранить ее надолго...
К
Кулинария-и-гостеприимство
02.01.2021
Как устроить первоклассную вечеринку...
Д
Дом-и-сад
04.01.2022
Солнечная энергия: идеальное решение для подогрева бассейна...
К
Компьютеры-и-электроника
30.11.2021
Apple Macintosh или другие ПК: как определиться с выбором...
Х
Хобби-и-рукоделие
06.03.2020
Как правильно драпировать платье: советы стилистов и примеры вариантов...
И
Искусство-и-развлечения
21.05.2021
Как играть в бильярд как профи?...
И
Искусство-и-развлечения
11.03.2023
Как стильно одеться в стиле Гарри Поттера...
Новые ответы от MOGZ: Информатика
топтип
30.12.2021
Надо в кумире закрасить все клетки поля ,но у меня не получается , ....
ellykhrom
30.12.2021
Дайте полное решение с дано.в 1 из книг 256 страниц какой объём памяти в мб заняла бы эта книга если бы её сохранили в кодировке не 8 бит а, 16 бит причём на каждой стр 64 строки...
Elnarikys
12.10.2021
Просто цифру ответа. статья набранная на компьютере содержит 32 страниц на каждой странице 40 строк в каждой строке 64 символа. информационный объём стать составляет 25 кбайт. определите,...
Dangerrr
25.07.2020
3 Тебуса на тему текстовий документ очень...
LanaStreet
11.09.2022
2. в одной из кодировок utf-32 каждый символ кодируется 4 байтами. иван написал текст (в нём нет лишних пробелов): рак, весы, орион, дракон, козерог, близнецы, андромеда, наугольник...
sannikova04
12.05.2020
Сделайте алгоритм для этих рисунков(кц,нц) слева начальный рисунок, справа- то, что должно получить. , !...
ladusik69
09.09.2022
Пусть дано шестнадцатеричное число x=d5e{16} найдите минимальное целое положительное число yy, такое, что если результат вычисления суммы xи y записать в двоичной системе счисления,...
Ksbc
21.04.2023
Тема ФРАНЦИЯ И ГЕРМАНИЯ 1. Какой рекорд имеет Франция среди всех Европейских стран? 2. Что омывает берега Франции? 3.Назовите соседей Франции 4. Самый крупный остров Франции 5. Основные...
Макс1111111f
21.04.2023
Знайдіть площу трапеції, основи якої дорівнюють 13 см і 15 см, а її висота 4 см...
InnaGlazova
21.04.2023
Раскройте скобки, употребив нужную форму прилагательного и обращая внимание на сравнительную конструкцию. 1. He is (tall) player in the team. 2. My new flat is (large) than the old...
MOGZ ответил
Порівняйте Археї та Бактерії на прикладі галоквардатума і кишкової палички (за...
1. Написати рівняння площини, яка проходить через точку м (32-1) перпендикулярно...
Перевод на английский язык:У тебя есть любимый персонаж книги или фильма ?Почему...
Краткий конспект статьи Пушкина 8 класс Меркин стр. 130...
Как изменилась при- рода ночью? Опишите её от лица Мцыри. кортоко...
Что делать если разбился градусник???...
решить (4/3)^х+1 - (4/3)^х больше или равно 3/16...
Деяке тіло рухається зі змінною швидкістю. Що можна сказати про напрямок рівнодійної...
Choose the correct modal verb. Он мог бы и написать мне (но не написал). He ......
ДАМ ХА ФРАНЦУЗКИЙ И СКАЖУ ГОС НОМЕР КАДИЛАКА МОРГЕНШТРНА...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
ответ:
6 28 496 8128