a:=x+y/x+1-xy-12/34+x вопрос в том, в чем собственно проблема.? просто берете переменную и присваеваете ей значение .уравнение будет точно такоеже.
1)
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
Ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
.3ds - 3д модели
.dwg - чертежи AutoCAD
.rar - архивы
.exe - файлы исполнители
.zip - архивы
.mp3 - аудиофайлы
.flac - аудиофайлы
.wav - аудиофайлы
.mod - аудиофайлы
.pct - изображения
.mpg - видео
.mov - видео
.jpg - изображения
.txt - текст
.sub - субтитры для фильмов
.log - текс
.gif - движущееся изображение
.bmp - изображение