Регистрация
ojitovtitan
03.03.2023 08:16
Информатика
Есть ответ 👍

1. Как создать изображение в PaintNET?​

123
296
Посмотреть ответы 2

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

alinabugajcuk38
alinabugajcuk38
4,6(68 оценок)

в картинке...................


1. Как создать изображение в PaintNET?​
ViktoriaTigra
ViktoriaTigra
4,7(62 оценок)
// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var s1: =seqrandom(readinteger('n1=',50);   var s2: =seqrandom(readinteger('n2=',50);   var p: =readinteger('0-по неубыванию, иное- по невозрастанию: ');   var q1: =new queue< integer> ;   foreach var m in s1 do q1.enqueue(m);   write('очередь 1: ',q1); writeln;   var q2: =new queue< integer> ;   foreach var m in s2 do q2.enqueue(m);   write('очередь 2: ',q2); writeln;   // очереди сформированы   var q: =new queue< integer> ;   var a: =(q1.toarray+q2.toarray);   var s: sequence of integer;   if p=0 then s: =a.orderby(i-> i)   else s: =a.orderbydescending(i-> i).toarray;   foreach var m in s do q.enqueue(m);   write('очередь-результат: ',q); writeln; end. пример n1= 10 n2= 7 0-по неубыванию, иное- по невозрастанию: 1 очередь 1: [-26,6,26,-48,-21,-29,27,-39,5,-40] очередь 2: [50,36,37,46,18,41,-39] очередь-результат: [50,46,41,37,36,27,26,18,6,5,-21,-26,-29,-39,-39,-40,-48]

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