4 года назад

Площадь поверхности шара s=4* pi* R^2 где S площадь поверхности шара R радиус составить программу

1 ответ:

danka-r594 года назад

0 0

На языке паскаль, за $\pi$ взято 3,14:

program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.

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

Составьте алгоритм, с помощью которого можно определить, является ли треугольник с заданными длинами сторон a, b, c равносторонн

Faktoring [7]

Program anima;
Var a,b,c:integer; // Стороны треугольника
begin
writeln('Введите длины сторон: '); // Вывод на экран с последующей строкой
readln(a,b,c); // Вводимые переменные (стороны)
if (a=b) and (a=c) and (b=c) then // Условие
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.

0 0

3 года назад

как разделить 8 литров подсолнечного масла на две равные части по 4 литра,если кроме полного 8-литрового бидона есть два пустых

Юрий37

8 0 0

0 5 3

3 5 0

3 2 3

6 2 0

1 5 2

1 4 3

4 4 0

0 0

4 года назад

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

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

НатальяЗайцева

Ответ ясный и очень прост: иллюстрация
Желаю удачи:)

0 0

3 года назад

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

Помогите по быстрее!!!!

Anastasiys

13) 2
14)1
15)3
16)1
17)2
18) 2,3,4,6
19) 1. - в, г, д
2.- а,б,в
20) 1.- а, г
2.- б,в
21) а
22) а

0 0

4 года назад

Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка

marigo-21 [711]

Было занятно сделать все это в виде одного оператора)))

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
ReadlnString('->').ToWords(Arr(',','.'))
 .Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
 .Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
 .SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
 .Println(',')
end.

Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о

0 0

1 год назад