//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
1) 1011011
2) 4536
3) 122002
4) E2D
Извини, надеюсь, не поздно...)
#include <iostream>
using namespace std;
int main()
{
int a,b,c,k;
cin>>a>>b>>c;
k=0;
for(int i=a;i<=b;i++){
if(i % c==0){k=k+1; }
}
cout<<k<<endl;
}