Регистрация
Ra21M
25.11.2020 21:08
Информатика
Есть ответ 👍

A) Укажите редактирования электронной таблицы:

117
209
Посмотреть ответы 1

Ответы на вопрос:

enikandrova04
enikandrova04
4,4(83 оценок)
// pascalabc.net 3.4.2, сборка 1806 от 30.09.2018 // внимание! если программа не работает, обновите версию!

begin

  var (na,nb): =readinteger2('мощность множеств a и b: ');

  var a,b: set of integer;

  repeat

    a+=[random(0,50)]

  until a.count=na;

  a.println;

  repeat

    b+=[random(0,50)]

  until b.count=nb;

  b.println;

  (a-b).println

end.

Популярно: Информатика