Сколько раз будет выполнен цикл? 1. for i: = 0 to 15 do s: = s+1; 2. for i: = 10 to 15 do s: = s+1; 3. for i: = -1 to 1do s: = s+1; 4. for i: = 10 to 10 do s: = s+1; 5. k: =5; for i: = k-1 to k+1 do s: = s+1;

1.16
2.6
3.3
4.1
5.3

Метод:
Из правого числа вычитаем левое и добавляем единицу.

Unit Unit1;
{$mode objfpc}{$H+}
interface
uses  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,  Spin, Math;
type
  { TForm1 }
  TForm1 = class(TForm)    Button1: TButton;    Edit1: TEdit;    Edit2: TEdit;    Label1: TLabel;    Label2: TLabel;    Label3: TLabel;    Label4: TLabel;    procedure Button1Click(Sender: TObject);  private    { private declarations }  public    { public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);begin  Form1.Label4.Caption:=FloatToStr(tan((StrToFloat(Form1.Edit1.text)*2)+StrToFloat(Form1.Edit2.text)));end;
end.          

Var n:integer;
begin
  repeat
     read(n);
     if n<1 or n>12 then writeln('Неверный номер месяца');
 until n=>1 and n<=12 ;
case n of
  1: writeln('Этот месяц - Январь, время года - зима.');
  2: writeln('Этот месяц - Февраль, время года - зима.');
  3: writeln('Этот месяц - Март, время года - весна.');
  4: writeln('Этот месяц - Апрель, время года - весна.');
  5: writeln('Этот месяц - Май, время года - весна.');
  6: writeln('Этот месяц - Июнь, время года - лето.);
  7: writeln('Этот месяц - Июль, время года - лето.');
  8: writeln('Этот месяц - Август, время года - лето.');
  9: writeln('Этот месяц - Сентябрь, время года - осень.');
  10: writeln('Этот месяц - Октябрь, время года - осень.');
  11: writeln('Этот месяц - Ноябрь, время года - осень.');
  12: writeln('Этот месяц - Декабрь, время года - зима.');
end;
end.