3-й вариант
if <условие> then <операция1> else <операция2>
uses crt;
var
x,i:integer;
begin
clrscr;
writeln ('X Sin(x) Cos(x) Tg(x)');
i:=2;
for x:=0 to 45 do begin
write (x:2,' ',sin(x*pi/180):0:4,' ',cos(x*pi/180):0:4,' ');
write (sin(x*pi/180)/cos(x*pi/180):0:4);
writeln;
i:=i+1;
if i=24 then
begin
writeln ('Press Enter');
readkey;
end;
end;
readln;
end.
Ответ:
Спасибо за то, что ты есть
Frac(x) возвращает дробную часть действительного числа x
Например, frac(2017.2018) = 0.2018
Так как среднее значение 3 чисел (СРЗНАЧ(A1:A3)) равно 3, то сумма значений в этих же ячейках = 3*3=9
Значит значение ячейки A4 = 10-9 = 1