Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>
Ответ:
15
Объяснение:
я могу ошибаться но 2 бита это значит что 25 процентов(1/4) изучают инглиш
примерно а значит содержит что 50 процеето не знают немецкого (1/2) и логично остальная половина .
Инглишь знает 25 проценто, немкцкий знает 50 процентов значит францусский 25 процетов ( тоесть 5) отсюда следует что оставшиеся 75 процентов это 15 (просто умножил 75/25=3 3×5=15
Описание любого объекта в виде текста-это текстовая модель . Изображение объекта на рисунке , схеме или фотографии- это графическая модель.
Pascal abc.
<u>Проверка:
</u><u />5<span>
s=0
<span>70
s=3.55<span>
</span></span></span>
Исполнители алгоритмовЗадание 5Исполнитель Робот ходит по клеткам бесконечной вертикальной клетчатой доски, переходя по одной из команд вверх, вниз, вправо, влево в соседнюю клетку в указанном направлении. Робот выполнил следующую программу:вправовверхвлевовлевовнизвнизвправовправовправо внизвлевоУкажите наименьшее возможное число команд в программе, переводящей Робота из той же <span>начальной клетки в ту же конечную</span>