В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
181101s
181101s
03.11.2021 15:26 •  Информатика

Решить 2 1.a 7 4 5 а * с 3 5 3.в распоряжении майора иванова и.и. 12 сотрудников полиции. каждый день в наряд заступают двое, один из которых главный. сколько разных нарядов может сформировать майор? 4. известно, что в понедельник у студентов-юристов 1-го курса должно быть 4 разные пары. сколько разных вариантов расписания может быть в этот день, когда физкультура стоит первой? 5. в лыжной гонке участвовало 40 спортсменов. сколькими можно предсказать распределение первых трех мест. 6.в автомашине пять мест. сколькими пять человек могут усесться в эту машину, если занять место водителя могут только трое из них? (в страховку вписаны все водители) 7.набирая номер замка сейфа, пользователь забыл 4 последние цифры. каково наибольшее число попыток по подбору, если он помнит, что все эти цифры четные, и заканчивался номер на 2 или 6 8.трое собрали с яблони 40 яблок. сколькими их можно разделить между тремя сборщиками? 9.сколькими можно выбрать 4 книги в подарок вашим 4-м друзьям, если в книжном магазине есть 8 книг, которые вам нравятся (в наличии большое количество экземпляров всех интересующих вас книг)?

Показать ответ
Ответ:
zox229
zox229
03.12.2020 02:18
//Pascal ABC.NET v3.0 сборка 1111

Var 
 ars:array[1..50] of string;
 ark:array[1..50] of integer;
 s:string;
 i,n,k,j:integer;
begin
 readln(n);
 k:=0;
 for i:=1 to n do
  begin;
   readln(ars[i]);
    for j:=1 to 4 do
     delete(ars[i],1,pos(' ',ars[i]));
    s:=ars[i];
    if (s[1]='6') or (s[1]='7') or (s[1]='8') then
     begin;
      inc(k);
      ark[k]:=i;
     end;
  end;
writeln(k);
for i:=1 to k do
writeln(ark[i]);
end.

Пример ввода:
2
Петров Петр Петрович 10 6 2007
Иванов Иван Иванович 10 2 2007
Пример вывода:
1
1
0,0(0 оценок)
Ответ:
TanyaMakarova26
TanyaMakarova26
21.04.2020 07:19
#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long long lol;
typedef long int  li;#define mp          make_pair
#define F           first
#define S           second
#define sqr(a)      ( (a) * (a) )
#define pb          push_back
#define INF         999999999
#define ret(a)      cout << endl; system("pause"); return(a)
//#define ret(a)      return(a)using namespace std;int main()
{
    lol n;
    cin >> n;
    vector<lol> ar(n);
    for(int i = 0 ; i < n ; i ++)
        cin >> ar[i];
    for(int i = 0 ; i < n ; i += 3)
        cout << i+1 << '-' << i+3 << ": " << ar[i]+ar[i+1]+ar[i+2] << endl;
    ret(0);
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота