Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;
begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin
if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.
1101101
Число единиц : 5
Решение :
109:2 = 109-108 (берём по 54 ) = 1
54:2 = 54-54 (берём по 27 ) = 0
27 : 2 = 27-26(берём по 13) = 1
13:2 = 13-12(берём по 6)=1
6:2=6-6(берём по 3 ) = 0
3:2= 3-2(берём по 1) = 1
И в конце остаётся только единица , которая на два не делится , значит =1
Вводим ответ в обратном порядке = 1101101
Закрыть , развернуть в полноэкранный режим и свернуть
закрыть - крестик , свернуть - маленькая черточка, развернуть в полноэкранный режим - контур прямоугольника похожего на окно