При переводе данного числа в двоичную систему получится число в котором содержится 5 единиц
Ответ:
program Hello;
var a,k:string;
var i:integer;
begin
read(a);
for i:=0 to length(a) do begin
k := k+a[length(a)-i];
end;
write(k);
end.
Объяснение:
заводим две переменных типа string(строковой тип данных)
а и к
и еще не забудем счетчик для цикла i
строковой тип данных это массив из символов,то есть мы можем извлекать из него элементы с помощью цикла
объявим цикл for от 0 до длины нашей строки,которую возвращает функция length() и с помощью конкатенации(сложения строк,например: 'a'+'b'= 'ab) добавляем к новой строке "к" элемент length()-i строки а.
(Подразумевалось, что министр откровенный, а не страна)
1) Если Россия - самая скрытная страна, то она оба раза солгала, тогда из ее утверждения следует противоречие(проект принадлежит России и Франции одновременно). Значит этот вариант не подходит.
2) Если Россия - самая откровенная, то проект принадлежит Китаю.
<span>Франция - откровенная страна, противоречие.</span><span>
3)</span> Если Россия - осторожная, тогда
а) Если первое утверждение верно, то проект принадлежит не России, а Франции, тогда Франция - тоже осторожная страна. Противоречие.
б) Если второе утверждение верно, то проект принадлежит России, тогда Франция - самая скрытная, а Китай - откровенная страна. Что удовлетворяет условию.
Ответ: России.
Правильная маска в 1-м варианте. *mi?.dat
звездочка позволяет подставить любое количество символов, а так же их отсутствие. "?" указывает на обязательное присутствие символа и позволяет подставить один символ.
var a:array[1..8]of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
readln(a[i]);
if i mod 2 = 0 then s:=s+a[i];
end;
writeln(s/4);
end.
