Program Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.
Второй вариант. Внизу картинка, которая всё подтверждает :)
Var a: real;
begin
write('Введите сторону куба = ');
readln(a);
writeln('Объем = ', a * a * a);
writeln('Площадь поверхности = ', 6 * a * a);
end.
X=1
((1<5)→(1<3) )∙((1<2)→(1<1) ) ⇒ (Истина→Истина)∙(Истина→Ложь) ⇒ Истина∙Ложь ⇒ Ложь
X=2
((2<5)→(2<3) )∙((2<2)→(2<1) ) ⇒ (Истина→Истина)∙(Ложь→Ложь) ⇒ Истина∙Истина ⇒ Истина
X=3
((3<5)→(3<3) )∙((3<2)→(3<1) ) ⇒ (Истина→Ложь)∙(Ложь→Ложь) ⇒ Ложь∙Истина ⇒ Ложь
X=4
((4<5)→(4<3) )∙((4<2)→(4<1) ) ⇒ (Истина→Ложь)∙(Ложь→Ложь) ⇒ Ложь∙Истина <span>⇒ Ложь</span>
1)
var
a,b,c,d,i:real;
begin
write('Введите числа a,b,c,d по порядку: ');
readln(a,b,c,d);
i:=(a*b/c)+d;
writeln('Ответ: ',i);
readln;
end.
<span>
2)
var
a,b,i:real;
begin
write('Введите числа a,b по порядку: ');
readln(a,b);
i:=(sqrt(a*b))/(a-b)+(abs(a*b))/25.4;
writeln('Ответ: ',i);
readln;
<span>end.
</span>
3)
var
y,x,i:real;
begin
write('Введите значения x,y по порядку: ');
readln(x,y);
i:=1+(((sqrt(x))+cos(y-2))/((x*x*x*x)/2)+sin(y)*sin(y));
write('Ответ: ',i);
readln;
<span>end.</span></span>