ПОЖ ПОЖ Дайте полные развернутые ответы на вопросы. Какие системы программирования вам известны? Опишите - id1564970620200405 от hadisvv 05.04.2020 16:49

Question

Информатика: ПОЖ ПОЖ Дайте полные развернутые ответы на вопросы. Какие системы программирования вам известны? Опишите их назначение. ( ) Если не отвечаете конкретно на вопрос, буду ставить флажок (просто бывали люди просто копирующие инфу ненужную из инета и всё)

hadisvv · Accepted Answer

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
if n>36 then begin
    Writeln('Слишком много, максимум 72');
    Exit
    end
else begin
    var a:=new integer[n];
    var k:=0;
    for var i:=1 to 8 do
      for var j:=i+1 to 9 do begin
        a[i]:=10*i+j;
        Write(a[i],' ');
        Inc(k);
        if k>n then Exit
        end
    end
end.

Тестовое решение:
n= 36
12 13 14 15 16 17 18 19 23 24 25 26 27 28 29 34 35 36 37 38 39 45 46 47 48 49 56 57 58 59 67 68 69 78 79 89

MOGZ ответил