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

На языке си. последовательно вводятся целые положительные числа. для каждого числа выяснить, является ли оно факториалом какого либо числа. если да, то вывести число, факториалом которого является введённое, если нет, то вывести сообщение об этом. признаком конца ввода является ввод нуля.
.

👇
Открыть все ответы
Ответ:
alpis2002
alpis2002
29.02.2020
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,10,99);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Cols.Select(c->c.Max).ToArray;
  foreach var x in b do Write(x:3); Writeln
end.

Пример
Количество строк и столбцов в массиве: 6 9
*** Исходный массив [6,9] ***
 76 48 41 62 74 39 98 72 33
 90 71 96 66 40 51 43 68 46
 30 81 52 55 20 47 64 56 45
 96 71 27 31 32 77 33 44 57
 33 97 32 60 38 84 51 74 66
 41 40 88 59 54 84 86 38 86

 96 97 96 66 74 84 98 74 86
4,8(22 оценок)
Ответ:
Авитя1
Авитя1
29.02.2020
При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано:
#include <algorithm>
#include <iostream>
using namespace std;
 
int main()
{
    string s;
    cout << "Enter string: ";
    getline(cin, s);
    for (auto i : s) {
        if (i == '.') {
            cout << count_if(
                                        s.begin(),
                                        s.end(),
                                        [](auto c) {
                                            return c != ' ' && c != '.';
                                        }
                                      ) << endl;
        }
    }
    return 0;
}
4,4(59 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ