COUNTRY:
USA : RUSSIA:
INFO : ;washington.txt INFO:
culture.txt industry.txt ; culture.txt
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
Те, в которых не используется абсолютная адресация по отношению как к номеру столбца, так и номеру строки.
Відповідь:
Відповідь: А
Пояснення:
1)Далі буде список ефектів
2)Щоб примінити ефект потрібно захватити його з допомогою лівої кнопки мишки і перетянути на фрагмент що на розкадруванні
3) Виділена голубим коліром зірочка буде означати те що до кадру властивий якийсь ефект. Навести на нього і там буде назва фільтру.
4) При необхідності те саме зробити з іншими кадрами або відео
1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.