//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172
Uses
GraphABC;
Var
i:integer;
begin
maximizewindow;
for i:=100 to 500 do
begin
clearwindow();
setbrushcolor(clGold);
circle(i,i,10);
circle(i,i+30,6);
circle(i,i+65,6);
setbrushcolor(clgray);
ellipse(i-15,i+10,i+15,i+60);
setbrushcolor(clGold);
circle(i,i+30,6);
sleep(40);
end;
end.
а) Функция возвращает длину строки, k = 10
б) Возвращает 4 символа начиная с 4-го из строки Str1, s = ' ned'
в) Удаляет из Str1 2 символа начиная с4-го, Str1 будет = 'denedeli'
г) Вставляет Str1 в Str2 начиная с третьего сивола, Str1 не изменится, Str2 будет = 'deden nedeli'
д) Возвращает позицию Str1 в Str2. В Str2 нет Str1, значит функция вернет 0
для массива A заданы числа от 1 до 6, 1 символ = 2 байта, 6 * 2 = 12 байт.
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
Var i:integer; s,p:real;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
p:=p*i;
s:=s+p;
end;
writeln('s = ',s);
end.
Результат:
s = 4037913