Const
n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Исходный массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if (a[i]>0) and (a[i] mod 2=0) then Inc(k)
end;
Writeln;
Writeln('Количество четных положительных чисел равно ',k)
end.
Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2
Var
a,b,c:real;
begin
Write('Введите через пробел длины трех сторон: ');
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln('Можно составить треугольник')
else
Writeln('Нельзя составить треугольник')
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
10+18=28
округляем в 32, это пятая степень двойки
5 умножить на 7 рано 35 делим на 8, округляем в большую сторону : 5
5 умножаем на 60: 300 байт
773
Это наибольшее трехзначное, а всего 12 трехзначных чисел
<span>
<span><span>
773
</span>
<span>
764
</span>
<span>
755
</span>
<span>
746
</span>
<span>
737
</span>
<span>
674
</span>
<span>
647
</span>
<span>
575
</span>
<span>
557
</span>
<span>
476
</span>
<span>
467
</span>
<span>
377
Программу можно посмотреть Alt+F11
</span></span></span>
1).В 8 литровый кувшин набрать воду-перелить в 3 литровый кувшин ( в 8 литровом остается 5 литров )
2).перелить из 8 литрового в 3 литровый ( в 8 литровом останется 2 литра )
3). Эти 2 литра перелить в 3 литровый кувшин
4). Набрать полностью 8 литровый кувшин и долить до конца из 8 литрового в 3 литровый и остаётся в 8 литровом 7 литров воды