Римские цифры
(Русские буквы - а,б,в,г и т.д.;
Латинские - a,b,c,d etc.;
Арабские цифры - 1,2,3,4 и т.д.;
Римские - <span>I <span>II </span><span>III </span><span>IV </span><span>V </span><span><span>VI и т.д.)</span></span></span>
Const n=8;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,i]:=n-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Пример:
8 0 0 0 0 0 0 0
0 7 0 0 0 0 0 0
0 0 6 0 0 0 0 0
0 0 0 5 0 0 0 0
0 0 0 0 4 0 0 0
0 0 0 0 0 3 0 0
0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 1
1 задача :
var n:integer;
BEGIN read(n); writeln(n div 60,' мин.',n mod 60,' сек.'); END.
Ну вот, надо что то написать чтоб было 20 символов)))
Ответ под цифрой 3.
P.s. Если ты отметишь это решение как "Лучшее", то к тебе вернётся 25% потраченных пунктов на это Задание.