//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
var A:array[1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
end.
помоему так)
Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
IP адрес состоит из четырёх чисел через точку, каждое из которых не больше 255. Следовательно ответы A и Г - правильные.