Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль

1 ответ

Посмотреть ответы

DevAdmin

1720

1)а
var a:real;
begin
readln(a);
a1 := a*a; /получили а^2
a := a1*a1; /получили a^4
a := a1*a*a; /получили a^(4+4+2)
writeln(a);
end.

1б)
var x:real;
i:integer;
begin
readln(a);
a1 := a*a*a; /получили а^3
a := a1*a1*a1; /получили a^9
a := a*a1*a1; /получили а^(9+3+3)
writeln(a);
end.

2)
var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.

3)var a:real;
begin
readln(a);
writeln('В килобайтах' a/1024);
writeln('В мегабайтах' a/(1024*1024));
end.

Хороший ответ

5 апреля 2023 00:38

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Отметь лишнее. рычание льва, мычание коровы, вкус хлеба, шелест листьев, журнале ручья. ответ... Что такое форматирование ( в частности для жесткого диска или дискеты) и его виды.... Врач стоматолог принимает пациентов с 8 утра до 12 часов дня. На каждого пациента отводится по 30 минут. Какое количество информации содержит сообщени... 1. Чему равен 1 Мбайт ... 1) 106 бит 2) 106 байт 3)1024 Кбайт 4)1024 байт 2.Какое количество информации содержит один разряд шестнадцатеричного чис... Знаковой моделью является: Вариант 1 анатомический муляж; Вариант 2 макет здания; Вариант 3 модель корабля; Вариант 4 диаграмма; _____...