1. Какие типы принтеров вам известны? Приходилось ли вам распечатывать информацию на принтере?. Если да, то какого он был типа? 2. Какие группы клавиш можно выделить на клавиатуре? С какими вы работали. Дайте им характеристику.
3. Текст занимает полных 5 страниц. На каждой странице 30 строк по 70 символов в строке, для хранения одного символа требуется 8 битов. Какой объём рперативной памяти (в байтах) займет этот текст?
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
const Radian = 57.295779513; //Сколько градусов в одном радиане
var
a, b, c: real; //Стороны, лежащие против углов A, B и C соответственно
begin
writeln('Введите 3 стороны треугольника в следующем порядке: a, b, c');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then writeln('Треугольник ABC - прямоугольный') {Если хотя бы для одной из сторон выполняется теорема Пифагора, то данный треугольник прямоугольный}
else writeln('Угол C равен: ', arccos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b)) * Radian, ' градусов'); {Выражаем из теоремы косинусов косинус угла C, берем arccos от него и умножаем получившееся значение на количество градусов в радиане, чтобы получить ответ в градусах}
end.
Пользоваться компилятором Pascal ABC.Net, потому что это единственный компилятор из всех известных мне, который поддерживает функцию arccos.
Если будут вопросы, спрашивай.