Не говоря уже о том, что задача номер три выглядит несколько не так, как вы её решили

code:
uses crt;
var 
i, x: integer;
xRad, sinX : real;
begin
  for i:=1 to 6 do begin
    x := i * 5;
    xRad := (Pi/180)*x;
    sinX := sin(xRad);
    writeln('Sin(',xRad,') = ', sinX:6:4);
  end;
  readln;
end.

По поводу sinX:6:4 уверен не вполне, проверить на коленке не получается, подбирайте Это формат вывода, кажется, сколько знаков после запятой и сколько всего, могу ошибаться.

__________________

Кошак, борец за официальный запрет всех официальных запретов.

Ах, лето красное, убил бы я тебя, когда б не связь времён да Уголовный Кодекс. (с)О. Ладыженский

Адрес поста | Один пост | Сообщить модератору | IP: Logged