Program Pr1;
uses crt;
var mas:array[1..10000] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=1 to 10000 do mas[i]:=i;
for i:=1 to 10000 do if (mas[i] mod 13<>0) and (mas[i] mod 17<>0) then v:=v+1;
writeln(v);
end.
скачай архиватор на русском языке и наверхней посматри и увидешь
1) uses<span> crt;
2) </span><span>var
3) </span>s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0<span>;
7) </span>writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?')<span>;
</span>10) readln(s2);
11) for i:=1 to length(s1) do <span>begin
</span>12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k)<span>;</span>
16)End.
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!