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

Розгадайте ребус, пожайлусто! ​

Показать ответ
Ответ:
pchehov77
pchehov77
26.08.2021 15:55

#include <iostream>

#include <vector>

using namespace std;

#define ll long long

#define ld long double

signed main(){

   ll n,m;

   cin >> n >> m;

   vector<pair<ll,ll>> v;

   ll cur_min = LLONG_MAX;

   for(ll i = 0; i < n; i++)

       for(ll j = 0; j < m; j++){

           ll x;

           cin >> x;

           if(x < cur_min){

               v.clear();

               v.push_back({i,j});

               cur_min = x;

           }

           else if(x == cur_min)

               v.push_back({i,j});

       }

   for(auto i: v)

       cout << i.first << " " << i.second << "\n";

}

0,0(0 оценок)
Ответ:
arsenova
arsenova
06.04.2020 07:50

1)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 repeat

 if i mod 2=0 then S:=S+i;;

 inc(i)

 until i>n;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

 readln;

End.

2)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 while i<=N do

 begin

   if i mod 2=0 then S:=S+i;

   i:=i+1;

 end;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.

3)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 for i:=1 to N do

   if i mod 2=0 then S:=S+i;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота