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

Сколько различных имен длиной не более 5 можно образовать в алгоритмическом языком, используя только следующие символы: а,b,1,5,#. записать решение в виде линейного алгоритма в pascal abc. заранее я на вас надеюсь

👇
Ответ:
Лидуня270516
Лидуня270516
03.07.2020
Наверное, так:) Сумма уоличества всех возможных имён длиной от 1 до 5 символов, но, право, циклом короче было бы ._.
4,7(87 оценок)
Открыть все ответы
Ответ:
сонька177
сонька177
03.07.2020

C#

using System;

namespace ArrayMax

{

class Program

{

static void Main(string[] args)

{

int n;

Console.WriteLine("Введите количество элементов массива: ");

n = Convert.ToInt32(Console.ReadLine()); //вводим количество элементов Массива

Console.WriteLine();

int[] a = new int[n]; //выделяем память под массив

Random r = new Random();

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

{

a[i] = r.Next(0, 20); //заполняем массив рандомными числами от 0 до 20

}

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

{

Console.WriteLine(a[i]); //выводим массив

}

int max = a[0], maxIndex = 0;

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

{

if (max < a[i])

{

max = a[i];

maxIndex = i; //находим индекс максимального элемента

}

}

int count = 0; //счётчик для чисел между 1 и 12 до макс элемента

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

{

if (a[i] >= 1 && a[i] <= 12) //если элемент >= 1 и <= 12, прибавляем счётчик

count++;

}

Console.WriteLine();

Console.WriteLine(count); //выводим количество числе от 1 до 12 до макс эл массива

Console.ReadKey();

}

}

}

4,4(42 оценок)
Ответ:
Lyadavinchi
Lyadavinchi
03.07.2020
const    N = 25;var    arr: array[1..N, 1..2] of real;    firstNumber, secondNumber: real;    i, j: integer;begin    for i := 1 to N do        begin            Readln(firstNumber, secondNumber);                        Writeln();                        if (firstNumber + secondNumber > 100) then                begin                    j := j + 1;                                        arr[j, 1] := firstNumber;                    arr[j, 2] := secondNumber;                end;        end;        Writeln();        for i := 1 to j do        Writeln(arr[i, 1], ' | ', arr[i, 2]);end.
4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ