PROGRAM A23;
const
max = 42;
var
с:array[1..max]of real;
x:integer;
i:byte;
BEGIN
writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
write('Введите x='); readln(x);
writeln(' ');
writeln('Массив' );
for i:=1 to max do begin
с[i]:=16*x - i/9 -7;
write(с[i], ' ');
end;
END.
Раст-это растровая (графика)
Program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.
Выделить всё
копировать
вырезать
вставить
сохранить
отменить