Задание:
Помогите пожалуйста срочно нужно! 1) программа для определения объема и площади поверхности шара. Вот формула если что S=4ПR²,V=¾ΠR² 2) программа проверяет является ли введенное число нечетным и при этом делится на 5 3) задача нахождения факториала числа ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!
Решение:
1) Program P1; Const pi=3,14; Var r,s,v: real; BeginWrite ('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; Beginwrite ('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. Если напишешь, что такое факториал и по какой формуле считается, напишу и третью программу.
Знаете другой ответ?