Оля - яблоки
Маша - сливы
<span>Юля - груши </span>
Если чётное, в конце (младший разряд) 0. На 4 - два нуля. На 8 - три. На 32 - пять нулей.
Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;
Управляет процессами обработки машинного кода, проиводит логические операции, выполняет арифметические операции
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе