4 года назад

Обчислити площу бічної поверхні ( S=2ПrH )та об`єм діжки за даними висотою та радіусом основи.

Знания

Информатика

1 ответ:

Грушенька [92]4 года назад

0 0

var

s,r,h:extendedl

begin

read(r,h);

s:=2*3.14*r*h;

write(s);

end.

Вы имели ввиду так?

Читайте также

Используя алгоритм Евклида, найдите НОД для чисел 114 и 66. Сколько шагов алгоритма вам пришлось выполнить?

барсик 11 [89]

Вот смотри, из большего нужно вычесть меньшего , т.е 1)114 - 66 = 48
Далее 2)66 - 48=18;3)48-18=30;4)30-18=12;5)18-12=6;6)12-6=6
Итого 6 шагов.

0 0

4 года назад

Pascal 1. Дан прямоугольный треугольник с катетами a и b. Составьте программу для вычисления гипотенузы c, периметра, площади, р

игорь шведюк

Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;

begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.

0 0

4 года назад

Татьяна Ларина, читая очередной французский роман,подсчитал сумму номеров прочитанных страниц. Составить алгоритм, определяющий

Алина Дряхлова

начало->вводим сумму номеров проч. стр. (S)-> с=0, y=0 -> 1) c=c+1, y=y+c -> y=S ?

Нет то повторяем все начиная с п.1

Да выводим с -> конец

Примерно так. Если не очень понятно, извиняйте.

0 0

3 года назад

Объсните почему из 4 гб озу доступно всего 3.45? Windows 10 Домашняя для Одного языка

А-л-ё-н-а [49]

Потому-что оставшаяся память резервируются под программы для более быстрого запуска

0 0

4 года назад

Прочитать ещё 2 ответа

Вычислить площадь треугольника по двум сторонам и углу между ними осуществив перевод углов из градуса в радианы

Юля19034 [104]

Var
a, b, alpha: real;

begin
writeln('Введите длины сторон и величину угла');
readln(a, b, alpha);

alpha := 0.5 * a * b * sin(alpha * pi / 180);
writeln('Площадь треугольника равна ' + alpha);
end.

0 0

3 года назад