// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
#include <iostream>
using namespace std;
int main()
{
unsigned w;
cout <<"Введите стоимость 1кг конфет: ";
cin >>w;
if(w==0)
{
cout <<"Бесплатно конфеты не раздают!" <<endl;
return 1;
}
for(int i=1; i<=10; ++i)
cout <<i <<" кг конфет стоит " <<i*w <<endl;
return 0;
}