// PascalABC.NET 3.3.5, сборка 1662 (29.04.2018)
begin
Println($'Среднее арифметическое : {ArrRandomInteger(40,0,20).Println.Where(e-> e.IsOdd).DefaultIfEmpty.Average}')
end.
// FreePascal
var
a: array[0..39] of integer;
i, c, s: integer;
begin
randomize;
for i := 0 to 39 do
begin
a[i] := random(21);
Write(a[i],' ');
if (a[i] mod 2 <>0) then
begin
inc(c);
s := s + a[i];
end;
end;
Writeln;
if c<>0
then Writeln('Среднее арифметическое: ',s/c)
else Writeln(0);
end.
// C++
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a[40];
double c = 0, s = 0;
srand(time(0));
for (int i = 0; i < 40; i++) {
a[i] = rand() % 21;
cout << a[i] << " ";
if (a[i] % 2 != 0) {
c++;
s += a[i];
}
}
if (c!=0) cout << "\nСреднее арифметическое = " << s / c << endl;
else cout << "\nСреднее арифметическое = 0 " << endl;
system("pause");
return 0;
}
"C:\Program Files\WinRAR\rar" a "C:\way\to\archive.rar" "C:\way\to\file.doc"
Чтобы в Windows создать rar-архив, нужна консольная программа RAR. Обычно она идет вместе с программой WinRAR
"C:\Program Files\WinRAR\rar" -- путь к консольной программе rar.exe (проверь, что WinRAR ставился именно туда)
a -- команда, означающая "создать архив"
"C:\way\to\archive.rar" -- полный путь и имя файла архива
"C:\way\to\file.doc" -- полный путь и имя doc файла, который нужно запаковать.
1) Алфавит
Цифры
2) 2,3,4
3) 10011= 1*1+1*2+1*2в4=1+2+16=19
254=4*1+5*8+2*8во2=4+40+128=172
вроде бы правильно
Ответ:
#include <iostream>
using namespace std;
int main()
{
int a, b, c;
setlocale(LC_ALL, "Russian");
cout << "a, b, c = ";
cin >> a >> b >> c;
if (a <= b && b <= c) {
a = a * a;
b = b * b;
c = c * c;
}
else if (a > b && b > c) {
b = a;
c = a;
}
else {
a = -a;
b = -b;
c = -c;
}
cout << "\nРезультат a, b, c = " << a << " " << b << " " << c;
}
S:= copy(A,1,1)+copy(B,1,1)+copy(K,1,1);
