Регистрация
iljakrainik
08.05.2021 23:20
Информатика
Есть ответ 👍

Составить функцию нахождения объема шара, зная его радиус. с данной функции вычислить объем для n шаров. pascal abc написать программу с процедур и функций.

177
419
Посмотреть ответы 2

Ответы на вопрос:

1321321325555555
1321321325555555
4,7(96 оценок)
Function ob(r: real): real; var v: real; begin v: =4/3*r*r*r*pi; ob: =v; end; var n,i: integer; v1,r1: real; begin readln(n); for i: =1 to n do begin write('введите радиус ',i,'-го шара: '); readln(r1); v1: =ob(r1); writeln('объем шара: ',v1); writeln; end; end.
viktoriy2009
viktoriy2009
4,6(97 оценок)

program raf105;

var a: array[1..100] of integer;

i,b: integer;

begin

i: =1;

b: =1;

a[1]: =1;

writeln('вводите 100 чисел по очереди');

for i: =1 to 100 do

begin

  readln(a[i]);

  if (a[i]< 100) and (a[i]> 9)

    then b: = b+1;

end;

writeln('количество двузначных чисел: ',b);

end.

программа написана на языке pascalabc

Популярно: Информатика