Информатика 10 ! проходим case 2. дано число к. вывести фразу «мы выучили к правил» (1 - «1 правило», 12 – «12 правил», 22- «22 правила»

Var k: integer; begin read(k); case k of *все цифры, оканчивающиеся на 1*: write('мы выучили  ',k,'  правило'); *все цифры, оканчивающиеся на 2, 3, 4*: write('мы выучили  ',k,'  правила'); else write('мы выучили  ',k,'  правил'); end; end.

Var k: ; begin read (k); case n of 1,21: writeln ('мы выучили'k' правило'); ,23,22,24 : ('мы выучили ,k, правила'); : ('мы выучил ,k,'правил'); 22: ( ну тут уже как выше); end; end. мы это ещё в 7-ом проходтли end.

Не указан язык. пример на псевдоязыке. вариант 4 массив а(м,н) массив б(м,н-1) сформировать(а,б);   // это процедура которая как-то формирует исходные массивы прочитать(к); // это процедура, которая откуда-то берёт к и проверяет его на корректность для стр=1 по м цикл       для стлб=1 по к-1 цикл           б(стр,стлб)=а(стр,стлб);       конеццикла;       для стлб=к+1 по н цикл           б(стр,стлб-1)=а(стр,стлб);       конеццикла; конеццикла;   ну где-то так

Уменя работа с одним массивом. паскаль. uses crt; const n=4;           m=6; var a: array [1..n,1..m] of integer;     x,y,k,p: integer; begin       for x: =1 to n do begin           for y: =1 to m do begin               a[x,y]: =random(21)-10;               write(a[x,y]: 4);           end;           writeln;       end;       write('k='); readln(k);       if k< =m then p: =m-1 else p: =m;       for y: =k+1 to m do           for x: =1 to n do               a[x,y-1]: =a[x,y];       for x: =1 to n do begin           for y: =1 to p do               write(a[x,y]: 4);           writeln;       end; end.