<span>вновь созданный слайд размещается
</span><span>3 После текущего слайда. </span>
Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
В 32. Надо разделить числа, тогда будет известно, во сколько раз.
<span>1. Базы данных — это:
A) информационные структуры, хранящиеся во внешней памяти;
методом исключения
2. В коробке меньше 9, но больше 3 шаров. Сколько шаров может быть в коробке?
D) 5
3. Какие атрибуты (признаки) объекта должны быть отражены в
информационной модели, описывающей хобби ваших одноклассников, если эта
модель позволяет получить ответы на следующие вопросы:
- Каков возраст всех детей, увлекающихся компьютером?
- Каковы имена девочек, увлекающихся пением?
- Каковы фамилии мальчиков, увлекающихся хоккеем?
E) фамилия, имя, пол, возраст, хобби?
методом исключения
</span>
Var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
read(a[i]);
for i:=12 downto 1 do
write(a[i],'; ');
end.
