Я проверила, у меня в паскале все правильно. Название программы восхитительное:)))
У 4 задачи алгоритм такой:
1. Начало
2. Ввод четырех чисел A1, A2, A3, A4.
3. X1 = A1 + A2. X2 = A3 + A4
4. Если X1 > X2, То Вывод Tan(A3), Иначе Вывод Sin(A1)
5. Конец.
Язык ты не написала, так что программу сама пиши.
Ответ:MS PowerPoint, Mozilla Firefox, Grins, notepad++, inkscape,
Объяснение:
//PascalABC.Net 3.0, сборка 1052
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847