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.
Как сделать более кратко не знаю. Но эта программа работает.
abs(−16) = 16
sqr(b) = 256
sqr(b + b) = 1024
Объяснение:
program x1; // Название программы
var // Раздел для описания переменных
a, b, c: integer; // Объявление целочисленных переменных:
a - хранение первого введенного с клавиатуры числа;
b - хранение второго введенного с клавиатуры числа;
с - хранение максимального из них.
begin // Начало программы
a := -16; // Присваиваем значение "-16" в переменную а
b := abs(a); // Присваиваем модуль числа а в переменную b
writeln('abs(−16)=', b); // Выводим в консоль
c := sqr(b); // Присваиваем квадрат числа b в переменную c
writeln('sqr(b)=', c); // Выводим в консоль
c := sqr(b + b); // Присваиваем квадрат числа b + b в переменную c
writeln('sqr(b+b)=', c); // Выводим в консоль
end. // Конец программы