По моему такая задача уже была. Ну ладно
1. Половина детей любит пирожное 52/2=26
2. Мы знаем, что 20 детей любит либо пирожное, либо пирожное и мороженое. Прибавим их к тем кто любит только пирожное 20+26=46
3. Оталось из всего количества детей вычесть полученный результат 52-46=6
Ответ: 6 - детей любит мороженое
{ Free Pascal }
procedure Println(a:array of integer);
var
i:integer;
begin
for i:=0 to Length(a)-1 do Write(a[i],' ');
Writeln
end;
procedure Ex1(var a:array of integer; var nn,np:integer);
var
i:integer;
begin
nn:=0; np:=0;
for i:=0 to Length(a)-1 do
if a[i]<0 then begin a[i]:=0; Inc(nn) end
else
if a[i]>0 then begin a[i]:=1; Inc(np) end
end;
var
a:array of integer;
i,n,kp,kn:integer;
begin
Randomize;
Write('Количество элементов: '); Read(n);
SetLength(a,n);
for i:=0 to n-1 do a[i]:=Random(41)-20;
Println(a);
Ex1(a,kn,kp);
Writeln('Отрицательных ',kn,', положительных ',kp);
Println(a)
end.
Во вложении - пример работы программы.
6) 11(2) = 3(10), 11(3) = 4(10), 3*4 = 12(10) = 1100(2) = 110(3)
8) 144(16) - наибольшее. Вообще, если написание чисел одинаково, то больше то число, у которого больше основание.
Если еще посчитать надо, то вот.
144(16) = 16^2 + 4*16 + 4 = 256 + 64 + 4 = 324(10)
144(10) = 144(10)
144(8) = 8^2 + 4*8 + 4 = 64 + 32 + 4 = 100(10)
144(6) = 6^2 + 4*6 + 4 = 36 + 24 + 4 = 64(10)
1.) 1) В ОС Windows в имени файла запрещено использование следующих символов: \, /,:, *, ?, ", <, >, |. В Linux эти символы, кроме /, допустимы, хотя использовать их следует с осторожностью, так как некоторые из них могут иметь специальный смысл, а также из соображений совместимости с другими ОС;
2) В операционной системе Windows путь к файлу начинается с логического имени устройства внешней памяти; после имени каждого подкаталога ставится обратный слэш. В операционной системе Linux путь к файлу начинается с имени единого корневого каталога; после имени каждого подкаталога ставится прямой слэш.
