Тоже поковырялся, решил первое
Паскаль есть, проверил - работает
вот третье решил, тоже проверил, тоже всё работает, НО только при условии что количество четных элементов массива совпадает с количеством нечетных
Ответ:
Program test1;
Var
A,B,C,k:Integer;
Begin
k:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k:=k + 1;
If B > 0 Then
k:=k + 1;
If C > 0 Then
k:=k + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k);
End.
Клавиатура - клава, бОрда.
Материнская плата - мать, мама, материнка
Дисковод - флоповод
диск - флоппик (гибкий), хард, винт, винчестер - жесткий.
процессор Pentium - пень.
Ответ:
var
a, b: Real;
c : Integer;
begin
Write ('A, B = ');
ReadLn (a, b);
c := 0;
if a > 0 then
Inc (c);
if b > 0 then
Inc (c);
WriteLn ('Количество положительных = ', c);
ReadLn;
end.
<span>Cобытия равновероятны, поэтому номера этажей не повторяются.</span>
N = 2^4 = 16 этажей.