Плохо понел задание, но думою помог
uses crt;
var i,n:integer;
begin
writeln('Введите n');
read(n);
i:=122;
while i > 96+n do
begin
write(' ',Chr(i));
i:=i-1;
end;
end.
Program Num1;
var a, b, c , s, p, rb, ro :real;
begin
writeln ('Введите стороны треугольника через пробел');
read (a,b,c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
rb:= s/p;
ro:= (a*b*c)/(4*s);
writeln ('RB = ',rb:0:2,' RO = ',ro:0:2);
end.
2)В конце программы будет написано:
данные
1418324196
результат:a=14,k=18
Полное
резервное копирование, Дифференциальное резервное копирование, Инкрементное
резервное копирование, Клонирование, Резервное копирование в виде
образа, Резервное копирование в режиме реального времени.
Wrap enabled
uses Graph;
const
delta: array[1 .. 4] of record
X, Y: integer;
end =
((X:-1; Y: 0), (X: 0; Y:-1),
(X: 1; Y: 0), (X: 0; Y: 1));
var
grDriver, grMode, ErrCode: Integer;
len, i, j: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk then begin
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
readln; halt
end;
len := 10;
moveto(getmaxx div 2, getmaxy div 2);
for i := 1 to 10 do begin
for j := 1 to 2 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10);
for j := 3 to 4 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10)
end;
readln;
closegraph;
end.
Примерно