Смотря о чем ты
выберешь нужный
1 вариант
Копирование
создание
перемещение
удаление
2 вариант
Это относится к информации вообще
Хранение
Обработка
Передача
выбери что нужно или по канкретней вопрос в коментарии
Y =-44 так как - 22 меньше минус 20 (у отрицательных все наоборот) поэтому y = -22*2 = -44
Var a,b,c,d,N:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100) mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
N:=a-b-c-d;
Writeln(N);
end.
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
В программе буквы добавляются по алфавиту без повторений.
var s1,s2:string;
function F(var a,b:string):boolean;
var m:set of char; i:integer; c:char;
begin
m:=[];
for i:=1 to length(a) do
if pos(a[i],b)=0 then m:=m+[a[i]];
for c:=chr(32) to chr(255) do
if c in m then a:=a+c;
if m=[] then f:=false else f:=true;
end;
begin
writeln('Введите строку 1:');
readln(s1);
writeln('Введите строку 2:');
readln(s2);
if f(s1,s2)
then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.
Пример:
Введите строку 1:
program
Введите строку 2:
procedure
Новая строка: programagm