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

Написать программу которая считает сумму квадратов всех парных чисел до заданного числа n на языке паскаль​

👇
Ответ:
mkmoonlightovwm0o
mkmoonlightovwm0o
22.11.2022

begin

 var n := ReadInteger;

 var s := 0;

 var i := 2;

 while i <= n do

 begin

   s := s + i * i;

   i := i + 2;

 end;

 Print(s)

end.

Не следует задавать n > 1000

4,8(17 оценок)
Открыть все ответы
Ответ:
PhantomMen
PhantomMen
22.11.2022
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
h=30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n)
NEXT i
PRINT h
END
или:
n - количество чисел
i - цикловая переменная
a  - натурально число
min  - минимальное число, оканчивающееся на 4
Язык програмирования: Паскаль
var
n,i,a,min: integer;
begin
readln(n);
min := 30001;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 4) and (a < min) then
min := a;
end;
writeln(min)
end.
4,6(45 оценок)
Ответ:
nail4iklatyopo
nail4iklatyopo
22.11.2022

#include <iostream>

#include <iomanip>

#include <stdio.h>

using namespace std;

//функция вывода массива в консоль

void printArray (int arr[][4], int n) {

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

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

           cout << setw(5) << arr[i][j];

       }

       cout << endl;

   } cout << endl;

}

//функция замены всех отрицательных элементов нулями

void taskOne (int arr[][4], int n) {

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

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

           if (arr[i][j] < 0) arr[i][j] = 0;

       }

   }

}

//функция нахождения суммы парных элементов

void taskTwo (int arr[][4], int n) {

   int sum = 0;

   cout << "Сумма парных чисел (";

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

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

           if (arr[i][j] % 2 == 0 && arr[i][j] != 0) {

               if(sum!=0) cout << ", "; //для красоты вывода)

               cout << arr[i][j];

               sum = sum + arr[i][j];

           }

       }

   }

   cout << ") = " << sum << endl << endl;

}

//функция нахождения среднего арифметическое мин и макс

void taskThree (int arr[][4], int n) {

   int max = arr[0][0];

   int min = arr[0][0];

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

       for (int j = 1; j < n; j++) {

           // Понятное дело что минимальное число в массиве 0, но может имеется

           // ввиду минимальное кроме 0. Если нет то проверку на ноль

           // можно убрать arr[i][j] != 0

           if (arr[i][j] != 0 && arr[i][j] < min) min = arr[i][j];

           if (arr[i][j] > max) max = arr[i][j];

       }

   }

   

   float result = float(max+min)/(n*n);

   cout << "max = " << max << ", min = " << min <<endl;

   cout << "Среднее арифметическое = " << result << endl <<endl;

}

int main() {

   const int n = 4; //размер массива

   int arr[n][n]; //объявляем двумерный массив размером 4 на 4

   

   // Многомерный массив заполняется значениями с вложенных циклов.

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

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

           arr[i][j] = rand() % 81 + (-40); // генерируем случайное число от -40 до 40

           //  rand() % N; возвращает число от 0 до N-1

           // Если сгенерируется число 80 то отнимая 40 получим нужный максимум

           // а если 0 - то -40, тоесть нужный нам минимум

       }

   }

   

   // Выводим массив в консоль.

   cout << "Сгенерированный массив 4 на 4" << endl << endl;

   printArray(arr, n);

   

   // №1 - Заменяем все отрицательные элементы нулями.

   cout << "Задание №1" << endl << endl;

   taskOne(arr, n);

   printArray(arr, n);

   

   // №2 - Заменяем все отрицательные элементы нулями.

   cout << "Задание №2" << endl << endl;

   taskTwo(arr, n);

   // №3 - Заменяем все отрицательные элементы нулями.

   cout << "Задание №3" << endl << endl;

   taskThree(arr, n);

   

   return 0;

}

На скриншоте вывод программы


С++ двовииірні масиви (если можно, то с объяснением)Большое , чем кто . Очень нужно
4,8(83 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ