Вычислить объем шара с известным радиусом R (V=4/3ПR^3)

Знания

Информатика

1 ответ:

meyer [7]4 года назад

0 0

///////////////<u>Pascal abc</u>/////////////

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

Помогите написать программу на языке Pascal: Вычислить 8 целых чисел начиная с 1 не кратных 2 и 5.

Marante

Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.

0 0

3 года назад

Помогите сделать задачи в Excel !!!

evgen328 [7]

Задание № https://yadi.sk/d/NE07UfXs3UHvU5

0 0

4 года назад

Построить алгоритм (нарисовать блок-схему)program z1;var a,b,c, ua, ub, uc, s, p, hc:real;beginwriteln('Введите 3 стороны');read

Егорка2 [727]

Выделены отдельно Р и S в 4 и 6 блоке ( можно их не писать , а P и S записать в 9 блоке( в нем же допиши вывод ,а во 2 блоке ввод, забыл)). Чуть в кадр не поместился, но у тебя все эти формулы в пограмме. Удачи!

0 0

4 года назад

Устройство, обрабатывающее информацию и управляющее другими частями компьютера

Александр999

Скорее всего это процессор

0 0

4 года назад

Изначально, задача была такая: На вход программы подается натуральное число. Требуется написать программу, которая определяет со

Светлана Ломакина [7]

Program sg3;
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
<span>end.</span>

0 0

4 года назад