Вам что- то очень сложно задают для 1-4 класса. Извини, я не могу помочь.
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9
function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.
При использовании 256-символьного алфавита для хранения одного символа необходимо log(2)256 = 8 бит = 1 байт.
Объем текста = 2*80*32*1 байт = 5120 байт = 5120/1024 Кбайт = 5 Кбайт