Var i: integer; begin for i:=1 to 9 do write(i); writeln(10); for i:=0 to 8 do write(i); writeln(9); for i:=1 to 2 do write('0'); for i:=1 to 7 do write(i); writeln('8'); for i:=1 to 3 do write('0'); for i:=1 to 6 do write(i); writeln('7'); for i:=1 to 4 do write('0'); for i:=1 to 5 do write(i); writeln('6'); for i:=1 to 5 do write('0'); for i:=1 to 4 do write(i); writeln(5); for i:=1 to 6 do write('0'); for i:=1 to 3 do write(i); writeln('4'); for i:=1 to 7 do write('0'); for i:=1 to 2 do write(i); writeln(3); for i:=1 to 8 do write('0'); write('1');writeln('2'); for i:=1 to 9 do write('0'); writeln(1); end.
Как сделать более кратко не знаю. Но эта программа работает.
var i, j, n: integer; a: array[1..nn, 1..nn] of integer;
begin writeln('Задайте размер матрицы n'); readln(n); if n > nn then writeln('Вы превысили допустимый размер матрицы 20') else begin writeln('Матрица-результат'); for i := 1 to n do begin writeln; for j := 1 to n do begin if i < j then a[i, j] := 1 else if i = j then a[i, j] := 2 else a[i, j] := 3; write(a[i, j]:2) end; end; writeln end end.
#include <iostream>
#include <list>
#include <algorithm>
#include <iterator>
#include <cctype>
int main()
{
std::list<char> lt{'5', 'a', 'c','g', '7', 't', '!'};
std::cout << std::endl;
std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));
lt.remove_if([](char& var1)
{
return !(std::tolower(var1, std::locale()) >= 'a' && std::tolower(var1, std::locale()) <= 'z');
});
std::cout << std::endl;
std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));
}