1.
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 do
begin
if a<0 then z:=-z;
readln(a);
end;
if z=-1 then writeln('Произведение отрицательных чисел отрицательно')
else writeln('Произведение отрицательных чисел положительно');
end.
Пример:
12
-45
-87
-20
0
<span>Произведение отрицательных чисел отрицательно
2.
var n,a,x,s,i:integer;
begin
readln(n,a);
s:=0;
for i:=1 to n do
begin
readln(x);
if x>a then s:=s+x
end;
writeln('s = ',s);
end.
Пример:
5 30
48
15
80
29
32
<span>s = 160</span></span>
1111111111011101. Числа -34 отрицательное. поэтому переводим его в двоичную систему счисления 100010 и меняем полярность.
Трудовых поэтому денег не хватает
Если ты имеешь в виду дискету, то её объём колеблется от 720 Кб до 2,88 Мб.
Обьем зависит от окошек, позволяющих схеме дисковода по количеству отверстий определить плотность записи на дискету
Клавишей ввода называется Enter. Находится справа от основной клавиатуры (под BackSpace - служит для "стирания" текста)
<h3>
Модуль </h3>
<u>modul.pas</u>
Unit modul;
Interface
function sqr_sum(a, b:real): real;
function sqr_diff(a, b:real): real;
Implementation
function sqr_sum(a, b:real): real;
begin
sqr_sum := sqr(a) + sqr(b);
end;
function sqr_diff(a, b:real): real;
begin
sqr_diff := sqr(a) - sqr(b);
end;
end.
<h3>
Тестирующая программа:</h3>
<u>main.pass</u>
program main;
uses modul;
var a, b: real;
begin
writeln('Введите два числа: ');
readln(a, b);
writeln('Сумма квадратов двух чисел: ', sqr_sum(a, b):4:4);
writeln('Разность квадратов двух чисел: ', sqr_diff(a, b):4:4);
end.