Переделал программу с паскаля на С++
#include <iostream>
#include <cstdlib>
#include <time.h>
using namespace std;
int main(){
srand(time(0));
system("chcp 1251 > nul");
int q,x,y,z,a,b,c,d,e;
double w;
cout << "Введите x: ";
cin >> x;
cout << "Введите y: ";
cin >> y;
cout << "Введите z: ";
cin >> z;
a = x*y*z;
b = 3*z*x;
c = 2*(x+y+z);
d = max(a,b);
e = max(b,c);
q = max(e,d);
cout << "Максимум: " << q<< endl;
w = min((3*x*y*z),(q/2));
cout << "Максимум: " << w << endl;
return 0;
}
111010001101 в двоичной - 3725 в десятичной
begin
var Пауков := 0;
while Пауков < 9 do
begin
if (37 - 4 * Пауков) mod 3 = 0 then
begin
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end;
end.
var mas:array[0..9] of integer;
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.