1 бит
2 возможных варианта или капуста или повидло.
var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] > 0 then
Summ := Summ + A[i];
end;
writeln;
if Summ <> 0 then
writeln('Summ = ', Summ)
else
writeln('Нет ни одного положительного элемента');
readln;
end.
//вторая программа
var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;
writeln;
writeln;
writeln('Result:');
for i := 1 to n do
write(B[i], ' ');
readln;
end.
Ответ:
№1
- 1001010 в 2
- 171 в 8
- 101 в 16
№2
- 5 единиц
№3
- 1 ноль
№4
- 144 в 8
Подробное решение на фотографиях
#include <iostream>
using namespace std;
int main()
{
double x, y;
cin >> x >> y;
if ((x >= 2) && (y >= (5 * x - 22) / 3) && (y <= (23 - 4 * x) / 3))
cout << "true";
else
cout << "false";
return 0;
}