<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=ReadInteger('Введите число-дубликат для удаления:');
var id:=a.FindIndex(t->t=k);
if id>-1 then a:=a[:id+1]+a[id+1:].Where(t->t<>k).ToArray;
a.Println
end.
<u>Пример</u>
n= 20
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 -16 16 47 33 -1 -16
Введите число-дубликат для удаления: -16
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 16 47 33 -1
Т.к. abc(x) = a*x^2+b*x+c, то нужно найти такие x, чтобы x^3 > 21 и x^2 <= 21.
при x=2: x^2 = 4, x^3 = 8 - не подходит
при x=3: x^2 = 9, x^3 = 27 - подходит
при x=4: x^2 = 16, x^3 = 64 - подходит
при x=5: x^2=25, x^3 = 125 = не подходит
Ответ: 3, 4
1)
nclude <iostream>
using namespace std;
int main()
{
int num;
cin >> num;
cout << "\n"
<< num / 60 << " мин. " << num % 60 << " с.";
}
2)
#include <iostream>
using namespace std;
int main()
{
int num
cin >> num;
cout << num / 3600 << " д. " << (num % 3600) / 60 << " мин. " << (num % 3600) % 60 << " с.";
}