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

5.27 найти сумму всех целых чисел от 100 до 500 ( паскаль ) 5.28 найти произведение всех целых чисел от 8 до 15 ( тоже паскаль ) 5.29 найти среднее арифметическое всех целых чисел от 1 до 1000;

👇
Ответ:
angelikasolnce
angelikasolnce
21.12.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Range(100,500).Sum);
  Writeln(Range(8,15).Aggregate(1,(m,n)->m*n));
  Writeln(Range(1,1000).Average)
end.

Результат
120300
259459200
500.5
4,6(7 оценок)
Ответ:
Klimka081098
Klimka081098
21.12.2022
Соответственно 1, 2 и 3 задания
5.27 найти сумму всех целых чисел от 100 до 500 ( паскаль ) 5.28 найти произведение всех целых чисел
5.27 найти сумму всех целых чисел от 100 до 500 ( паскаль ) 5.28 найти произведение всех целых чисел
5.27 найти сумму всех целых чисел от 100 до 500 ( паскаль ) 5.28 найти произведение всех целых чисел
4,4(79 оценок)
Открыть все ответы
Ответ:
tayna73p00m0k
tayna73p00m0k
21.12.2022

1)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n;

   cin >> n;

   int a[n][n];

   int mn = INT_MAX;

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

   {

       for(int j = 0; j < n; j++)

       {

           cin >> a[i][j];

           mn = min(mn,a[i][j]);

       }

   }

   vector<pair<int,int>> vec;

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

       for(int j = 0; j < n; j++)

           if(a[i][j] == mn)

               vec.push_back(make_pair(i,j));

   cout << mn << "\n";

   for(auto i: vec)

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

   

}

2)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n,m;

   cin >> n >> m;

   int a[n][m];

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

   {

       int mid = 0;

       for(int j = 0; j < m; j++)

       {

           cin >> a[i][j];

           mid += a[i][j];

       }

       mid /= m;

       a[i][0] = mid;

   }

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

   {

       for(int j = 0; j < m; j++)

           cout << a[i][j] << " ";

       cout << "\n";

   }

}

4,8(49 оценок)
Ответ:
Вова21123
Вова21123
21.12.2022

Выберите ВЕРНОЕ имя переменной:

name6

Program

При какого оператора в Паскаль вводится значения переменной с клавиатуры:

Read

При какого оператора в Паскаль выводится сообщение на экран:

Writeln

Выберите ВЕРНУЮ запись оператора Writeln, выводящую на экран значение переменной a:

Writeln('ответ', a):

Пользователю нужно составить программу, находящую квадрат вещественного числа. Выберите верный фрагмент программы:

Вариант 4

Пользователю нужно составить программу, находящую квадрат любого числа. Выберите верный вариант программы:

Тут из за пикселизации, я не понял

либо 1 вариант либо 2

Дан фрагмент программы. Укажите пропущенный оператор:

begin

Дан текст программы. После запуска выдает ошибку. Исправьте программу, изменив ОДНУ строку. В ответе укажите ВЕРНУЮ запись этой строки:

read  (a);

Что будет напечатано в результате работы программы:

ответ 12

Что будет напечатано в результате работы программы:

2

Что будет напечатано в результате работы программы:

3

4,4(18 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ