Напишите программы на языке паскаль:
1. напишите программу, которая в последовательности натуральных чисел
определяет сумму трёхзначных чисел, кратных 4. программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму трёхзначных чисел, кратных 4.
2. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 6 и оканчивающихся на 4. программа
получает на вход количество чисел в последовательности, а затем сами числа.
количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
3. напишите программу, которая в последовательности целых чисел
определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в
последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 5 или 9.
4. напишите эффективную программу, которая по двум данным натуральным
числам a и b, не превосходящим 3, подсчитывает количество нечетных
натуральных чисел на отрезке [a,b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 3. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество нечетных чисел на отрезке [a,b].
5. напишите программу, которая в последовательности натуральных чисел
находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «no»). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «no», если таких чисел нет. значение выводить с точностью до десятых.
6. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в
последовательности всегда имеется число, кратное 4 и не кратное 7. количество
чисел не превышает 1000. введённые числа не превышают 30 000. программа
должна вывести одно число: количество чисел, кратных 4, но не кратных 7.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Alina2007271

03.04.2023 00:38

Створіть програму, яка за номером року (від 1601 до 2100) визначає та виводить повідомлення, до якого сторіччя(від 17 до 21) відноситься цей рік. в Пайтоне...

dimaandreevich

07.12.2022 03:09

напечатать в среде программирования ABC PASCAl программы n_3, n_4, n_5, n_6...

miha115

28.05.2020 12:54

Лесорубы (N) решили, что разделят дерево для сруба (K) только поровну, а получившиеся в остатке от такого деления деревья рубить пока не будут. Напишите программу,...

MaryOnegina

24.02.2021 07:04

Задание1 Определите результат вывода на экран для: 1) а = 5, b= 1 2) а = 2, b = 6 VAR a,b: INTEGER; BEGIN writeln ( введите 2 числа ); readln (a, b); if (a b) then...

oleksintetyana

15.03.2020 04:32

Учи ру у меня получилось только 19 клеток минимум...

zilola3

18.09.2020 05:30

Логическая функция F задаётся выражением ¬a ∨ (b ∧ ¬c). Определите, какому столбцу таблицы истинности функции F соответствует каждая из переменных a, b, c. В ответе...

kika007

08.06.2020 21:16

Без игнора мини-проект классификация. найдите в дополнительных источниках информацию и выполните классификацию объектов на одну из следующих тем. природные ресурсы...

Kurlyk111

08.06.2020 21:16

Напишите программу, которая считывает с клавиатуры одно за другим два дробных числа, а затем строку. если эта строка является обозначением одной из четырёх основных...

математика620

20.01.2022 01:21

Оператор цикла с постусловием. Формат. Назначение. Правила выполнения. Пример....

neshm08meshca

16.05.2021 07:17

Нужно составить блок схему !...

Ответ:

DANILADEMON

03.01.2020 02:15

Const
nn = 50;{максимальное число элементов}

var
a: array[1..nn] of integer;
m, n, max, min, i, kn, kz, kp, kt, nmax, nmin, t: integer;

begin
Write('Задайте количество элементов в массиве (1-50): '); Readln(n);
Write('Введите значение для поиска: '); Readln(t);
Writeln('Введите элементы массива');
max := -32768; min := 32767; kn := 0; kz := 0; kp := 0; kt := 0;
for i := 1 to n do
begin
    Read(m);
    if max < m then begin max := m; nmax := i end
    else if min > m then begin min := m; nmin := i end;
    if m < 0 then Inc(kn)
    else if m = 0 then Inc(kz) else Inc(kp);
    if m = t then Inc(kt);
    a[i] := m
end;
m := a[nmax]; a[nmax] := a[nmin]; a[nmin] := m;
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i], ' ');
Writeln;
Writeln('Количество элементов, равных ', t, ': ', kt);
Writeln('Количество отрицательных элементов равно ', kn);
Writeln('Количество нулевых элементов равно       ', kz);
Writeln('Количество положительных элементов равно ', kp)
end.

Тестовое решение:
Задайте количество элементов в массиве (1-50): 13
Введите значение для поиска: 7
Введите элементы массива
15 -6 11 0 7 0 18 -7 -3 -4 7 0 12
Результирующий массив
15 -6 11 0 7 0 -7 18 -3 -4 7 0 12
Количество элементов, равных 7: 2
Количество отрицательных элементов равно 4
Количество нулевых элементов равно       3
Количество положительных элементов равно 6

0,0(0 оценок)

Ответ:

NeSaRg00d04092003

03.01.2020 02:15

--- C# 7.3 -- (.NET Framework 4.8)

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace CSLear

{

class Program

{

static void Main(string[] args)

{

Tuple<int, int> MatrixRange = new Tuple<int, int>(-10, 10);

int M = int.Parse(Console.ReadLine());

int N = int.Parse(Console.ReadLine());

int[,] Arr = new int[M,N];

ArrayRandomize(ref Arr, M, N, MatrixRange);

MatrixPrint(Arr, M, N);

int Negatives = Arr.Count(x => x < 0);

int Zero = Arr.Count(x => x == 0);

int Positives = Arr.Count(x => x > 0);

Console.WriteLine($"Positive Items: {Positives}\nNegative Items: {Negatives}\nZeroes: {Zero}");

Console.ReadKey();

}

public static void MatrixPrint<T>(T[,] Matrix, int MRows, int MCols)

{

StringBuilder sb = new StringBuilder();

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

{

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

{

sb.Append($"{Matrix[i, j]} ");

}

sb.Append("\n");

}

Console.WriteLine(sb.ToString());

}

public static void ArrayRandomize(ref int[,] Arr, int ArrRows, int ArrCols, Tuple<int, int> Range)

{

Random r = new Random();

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

{

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

{

Arr[i, j] = r.Next(Range.Item1, Range.Item2);

}

public static class Extensions

{

public static int Count<T>(this T[,] Matr, Func<T, bool> Predicate)

{

int counter = 0;

foreach (T Item in Matr)

{

if (Predicate(Item)) counter++;

}

return counter;

}

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку