===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.
Значит эта ОС лучше чем другие(удобный интерфейс нормальный девайс ее очень легко установить стоит она немного продается диск в каждом магазине и типо того)
Кол-во символо = 82(с пробелами)
Размер = 82*32 = 2624
переведём в байты = 2624/8 = 336 байт ответ(2)
#include <iostream>
using namespace std;
int main()
{
setlocale(0, "");
float a;
char e;
while (e!='n')
{
cout<<"введите рост танкиста (в сантиметрах) ";
cin>>a;
if (a <= 170)
cout<<"годен в танкисты"<<endl;
else
cout<<"не годен в танкисты"<<endl;
cout<<"ещё раз? (y/n) ";
cin>>e;
}
return 0;
}