М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Lilu700
Lilu700
06.02.2021 21:38 •  Информатика

Здравствуйте! Решите тест,уже час бьюсь,не могу сделать(

👇
Открыть все ответы
Ответ:
HateLove7
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
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 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ