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

Входные данные вводятся 4 числа: a, b, c и d. выходные данные выведите все числа на отрезке от a до b, остаток c при делении на d. если таких чисел не существует, то ничего выводить не нужно. решить с++ до сегодня

👇
Ответ:
lizismik15
lizismik15
10.03.2023
Как пример, взял промежуток [1;10] остаток от деления на 2 должен был быть 1
Входные данные вводятся 4 числа: a, b, c и d. выходные данные выведите все числа на отрезке от a до
4,5(13 оценок)
Открыть все ответы
Ответ:
kadri1
kadri1
10.03.2023
Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.
4,6(13 оценок)
Ответ:
katyapugachewa
katyapugachewa
10.03.2023

var i,j,k:integer;
var f:text;
var a:array[0..35] of string =('a', 'b', 'c', 'd', 'e', 'f', 'g',
                             'h', 'i', 'j', 'k', 'l', 'm', 'n',
            'o', 'p', 'q', 'r', 's',
            't', 'u','v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4',
            '5', '6', '7', '8', '9');
begin
  assign (f, 'text.txt');
  rewrite(f);
  for i:=0 to 35 do
    for j:=0 to 35 do
       for k:=0 to 35 do
        writeln(f ,(a[i]+a[j]+a[k]));
  close(f);
  readln;
end.
Нужно создать text.txt в директории откуда будет запускаться программа.

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