1. Информатика
  2. Нужно написать программу

Нужно написать программу в паскаль, чтобы она выдавало слово(код) из 12 символов. Алфавит: ztmyvfpewjx23456789
Маска для слова: N1N1N1N1N1NN
Маска кода где:
N - возможны только буквы
1 - возможны только цифры

Анастасия5863 Анастасия5863    1   14.06.2020 21:56    0

Ответы
diankaZe diankaZe  30.08.2020 12:20

// PascalABC.NET

begin

 var cs := 'ztmyvfpewjx';

 var ds := '23456789';

 var s := '';

 for var i := 1 to 12 do

   if i in [1, 3, 5, 7, 9, 11, 12] then s += cs[Random(1, cs.Length)]

   else s += ds[Random(1, ds.Length)];

 s.Print

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alsusarip alsusarip  30.07.2022 07:40
The game often becomes stuck on landscape mode when tilting the device during gameplay, which cuts off some peripheral text. A workaround exists: by pausing and resuming the...
orxan4176 orxan4176  30.07.2022 15:47
В купейном вагоне имеется 9 купе с четырьмя местами для пассажиров в каждом. Напишите программу, которая определяет номер купе, в котором находится место с заданным номером...
yuliko13 yuliko13  30.07.2022 16:58
Здравстсвуйте ! функции для Scala дан List[A] функции, которые нужно написать: 1. map(xs: List[A], f: A = B): List[B] 2. inits(xs: List[A]): List[List[A]] (что делает: inits([1,2,3])...
ФилиситиФорНау ФилиситиФорНау  30.07.2022 21:23
Необходимо реализовать автоматическое заполнение ячеек электронной таблицы по представленной таблице...
овшаь овшаь  18.03.2019 18:46
Информатика 8 класс 1.определить 3-ю от конца цифру в записи заданного целого числа. 2. по заданному номеру года определить столетие 3. определить первую цифру в дробной части...
kmodeste kmodeste  18.03.2019 20:10
Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс...
aldyman aldyman  18.03.2019 18:46
А)дан фрагмент программы read (x); read (y); a: = (x-y)/2*x; write(a) write(x) его, скоратив число операторов б) что будет выведено на экран после ввполнение фрагмента программы:...
Niger0000rt Niger0000rt  18.03.2019 18:49
Пусть числовая прямая разбита на произвольные отрезки точками a1, a10. выясните какому из отрезков принадлежит заданная точка паскаль​...
maximfz maximfz  09.12.2021 17:34
СФОРМУЛИРУЙТЕ МАССИВ ИЗ 6 ЧИСЕЛ ПРОМЕЖУТКИ [3-70]...
tokio272 tokio272  28.01.2021 15:39
Проанализируйте полученные результаты.​...

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