Program pryam;
Var y1, y2, y3, x1, x2 : real;
Begin
writeln ('Введите координату (у) верхней точки прямой');
readln (y1);
writeln ('Введите координату (у) нижней точки прямой');
readln (y2);
writeln ('Введите координату (х) точек-концов прямой');
readln (x1);
writeln ('Введите координату (у) точки, принадлежность к прямой которой нужно определить');
readln (y3);
writeln ('Введите координату (х) точки, принадлежность к прямой которой нужно определить');
readln (x2);
if (y3<=y1) and (y3>=y2) and (x2=x1) then writeln (' принадлежит ')
else writeln (' не принадлежит ');
readln;
End.
Первое задание.
Бит, Байт, КилоБайт, МегаБайт, ГигаБайт, ТераБайт.
Второе задание.
5 КБайт - 5120 байт - 40960 бит
1.5 КБайт - 1536 байт - 12288 бит
Третье задание
А) Память — устройство, предназначенное для хранения информации.
Б) Внешняя память (ВЗУ) - это память для длительного хранения программ и данных, и целостность её содержимого не зависит от того, включен или выключен компьютер.
В) Постоянная память (ПЗУ)- это энергонезависимая память, используется для хранения данных, которые не требуют изменения.
С) Кэш-память — очень быстрое запоминающее устройство небольшого объёма, которое используется при обмене данными между микропроцессором и оперативной памятью.
Четвёртое задание.
WinRar, 7zip, WinZip
(Если я что то не правильно сделал вас исправить меня)
var a, b: real;
begin
readln(a, b);
writeln('> ', a + b);
end.
2)
var x, y: real;
begin
readln(x, y);
writeln('> ', x / y);
end.
3)
var ab, cd: real;
begin
readln(ab, cd);
writeln('> ', ab * cd);
end.
Вот так, а program не обязательно, сейчас XXI век)