Результат: 27.25
Если округлить до десятых, то: 27.3
Var
x,z : Real;
i : Byte;
Begin
x:=58;
z:=1;
i:=0;
Repeat
z:=(z+x/2)/2;
Inc(i);
Until i>=4;
Writeln(z);
end.
Ответ:
Объяснение:
1. Звуковой, графической, текстовой.
3. логическая связка для поиска по любому из слов
<u><span>Три красных и один голубой!</span></u>
<span>Так как красных было больше чем голубых то слебовательно красных больше Двух. Тоесть или 3 или 4. Так как по условию мама купила не только шары красного цвета но и синего то заведомо хоть один синего цвета -> <span>3 красных и 1 голубой.</span></span>
<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
Program nau;
var s,m,t: real;
begin
writeln ('введите расстояние и среднюю скорость движения');
readln (s,m);
t:=(s/m)*60;
writeln('время, потраченное на дорогу, в минутах = ',t);
<span>end.</span>