Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var (a,b):=(Random(0,10),Random(0,10));
if a=b
then Println(a,'=',b)
else Println(Random(0,10),Random(0,10));
end.
Итак. В данном алгоритме цикл повторится ровно 4 раза.
z=1; x=51;
1 итерация (i=0): z=(z+x/2)/2=(1+51/2)/2=13.25
2 итерация (i=1): z=(z+x/2)/2=(13.25+51/2)/2=19.375
3 итерация (i=2): z=(z+x/2)/2=22.4375
4 итерация (i=3): z=(z+x/2)/2=23.96875
При округлении до десятых результат будет округлен в большую сторону, а 23.9+0.1=24.
Ответ: 24
1 бит
2 возможных варианта или капуста или повидло.