var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.
1.
3*(-2+3+2)-9=0
3*(-1+2+1)-6=0 Это подходит
Ответ:3
2.
2*(-6+3+1)+4=0
2*(2+3-2)-6=0 Это подходит
Ответ:4
3. 360:120=3- Это треугольник, так как 3
Ответ:4
4. 360:60=6- Незамкнутая ломаная линия, так как 6 это перебор (Повтори 5)
Ответ: 4
5.
3*(-2+3+2)=9
3*(-1+2+1)=6, так как сказано заменить, то мы просто меняем знаки.
Ответ:(-9;-6)
<span>float R, r; // объявляем две переменные, внутреннего и внешнего радиусов
cin >> R >> r; // просим пользователя их задать
float pi = 3.14; // число Пи
float s = (pow(R, 2) - pow(r, 2)) * pi<span>; // формула вычисления площади кольца
cout << s; // вывод</span></span>
<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
Ответ:
Смотрите решение на фото, прикреплённое ниже
Объяснение: