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

Дана последовательность из n-целых чисел. Найти сумму всех чисел кратных 5. На языке Паскаль​

👇
Ответ:
Sasha476
Sasha476
25.07.2022

Программа:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   var

       A : array of integer;

       N, S, i : integer;

begin

   Randomize;

   S := 0;

   write('Укажите длину последовательности: ');

   Readln(N);

   {Генерация и печать массива}

   SetLength(A, N);

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       end;

   writeln; writeln('------------------------------');

   for i := 1 to N do

       {Определение кратности элемента массива числу 5}

       if A[i] mod 5 = 0 then begin

           {Вывод на экран этого числа}

           write(A[i], ' ');

           {Подсчет суммы чисел}

           S := S + A[i];

           end;

   writeln;

   {Вывод на экран суммы}

   writeln('Сумма - ', S);

end.

Объяснение:

Программа просит ввести пользователя число, длину генерируемой последовательности. Затем создается массив нужной длины, заполняется значениями от 0 до 50. Затем во втором цикле просматривается каждый элемент массива, - если он кратен 5, то число выводится на экран и суммируется.

В конце программа выводит итоговую сумму найденных элементов.

Результат выполнения программы:


Дана последовательность из n-целых чисел. Найти сумму всех чисел кратных 5. На языке Паскаль​
4,6(11 оценок)
Открыть все ответы
Ответ:
arinalapshakova
arinalapshakova
25.07.2022

В Microsoft Office Word 2007 отформатировать таблицу после ее создания можно несколькими Применение стилей таблиц позволяет задать формат сразу для всей таблицы, а также выполнить предварительный просмотр, чтобы заранее увидеть, как будет выглядеть таблица с выбранным стилем форматирования.

Таблицы можно изменять путем разбиения или объединения ячеек, добавления и удаления столбцов и строк, а также рисования. При работе с большими таблицами можно задать отображение заголовка таблицы на каждой из страниц, на которых она выводится. Чтобы исключить непредусмотренные разрывы потока данных в таблице, можно указать, в каких местах должны находиться разрывы страницы.

Объяснение:

4,6(45 оценок)
Ответ:
daysannas
daysannas
25.07.2022
Вот на С++:

#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 double ld;
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()
{
    ld x;
    cin >> x;
    x = ( 8 / sqrt( x ) ) + sqrt(x);
    cout << x;
    ret(0);
}
4,7(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ