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.
1 - не сделаю. Тк нет 121 стр...
Номер 2.
10,2 10,8 -10,2 -10,8
Round(x) 10 11 -10 -11
Int(x) 10 10 -10 -10
Frac(x) 2 8 2 8
3.
program S;
var a, b: real;
begin
write('a: ');
readln(a);
write('b: ');
readln(b);
writeln(a*b);
end.
4. Думаю сам справишься)))0)
Объяснение:
2. Думаю в объяснении не нуждается. В задании и так написано, что происходит)))
3. Создали переменные, запросили значения, вывели произведение.