Помогите пожалуйста срочно нужно!!!! 1) программа для определения объема и площади поверхности шара. Вот формула если что S=4ПR², V=¾ΠR²
2) программа проверяет является ли введенное число нечетным и при этом делится на 5
3) задача нахождения факториала числа
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!!!

1

Ответы и объяснения

2013-12-20T12:32:51+04:00

1)Program P1;
Const pi=3.14;
Var r,s,v:real;
Begin
Write ('r=');
Read (r);
s:=4*pi*r*r;
v:=3/4*pi*r*r;
write ('S=', s, ' V=', v);
End.

2)Program P1;
Var x:integer;
Begin
write ('x=');
Readln (x);
If (x mod 2=0) Then write ('число четное, ')
               Else write ('число нечетное, ');
If (x mod 5=0) Then write ('делится на 5')
               Else write ('не делится на 5')    
End.

P. S. Если напишешь, что такое факториал и по какой формуле считается, напишу и третью программу.