Решение задач на Pascal

individual1.pas

Program HelloWorld(output);
var m: integer;
var s: string;
begin
  m := -1;
  while (m < 1) or (m > 12) do
  Begin
      Write('Введите номер месяца (1-12): ');
      Readln(m);
  End;
  Case m of
    1: s := 'январь';
    2: s := 'февраль';
    3: s := 'март';
    4: s := 'апрель';
    5: s := 'май';
    6: s := 'июнь';
    7: s := 'июль';
    8: s := 'август';
    9: s := 'сентябрь';
    10: s := 'октябрь';
    11: s := 'ноябрь';
    12: s := 'декабрь';
  End;
  Write('Название месяца: '); Writeln(s);
end.

individual2.pas

Program HelloWorld(output);
var m: integer;
var s: string;
begin
  m := -1;
  while (m < 1) or (m > 12) do
  Begin
      Write('Введите номер месяца (1-12): ');
      Readln(m);
  End;
  m := m + 1;
  if(m = 13) then m := 1;
  Case m of
    1: s := 'январь';
    2: s := 'февраль';
    3: s := 'март';
    4: s := 'апрель';
    5: s := 'май';
    6: s := 'июнь';
    7: s := 'июль';
    8: s := 'август';
    9: s := 'сентябрь';
    10: s := 'октябрь';
    11: s := 'ноябрь';
    12: s := 'декабрь';
  End;
  Write('Название следующего месяца: '); Writeln(s);
end.

problem1.pas

Program HelloWorld(output);
var kString: String;
var k: integer;
begin
  For k := 1 to 99 do
  begin
    Case k mod 10 of
        1: Begin
            kString := 'год';
        End;
        2,3,4: Begin
            kString := 'года';
        End;
        Else Begin
            kString := 'лет';
        End;
    End;
    if((k > 10) And (k < 20)) Then
        kString := 'лет';
    Write('Мне '); Write(k); Write(' '); Writeln(kString);
  end;
end.

problem2.pas

Program HelloWorld(output);
var n: integer;
var y: integer;
var m: integer;
begin
  Write('Введите год: ');
  Readln(y);
  while (m < 1) or (m > 12) do
  Begin
      Write('Введите номер месяца (1-12): ');
      Readln(m);
  End;
  Case m of
    1,3,5,7,8,10,12: Begin
        n := 31;
    End;
    2: Begin
        if (y mod 400 = 0) or ((y mod 4 = 0) and not (y mod 100 = 0)) then
            n := 29
        else
            n := 28;
    End;
    Else Begin
        n := 30;
    End;
  End;
  Write('Количество дней в месяце: '); Writeln(n);
end.

problem3.pas

Program HelloWorld(output);
var m: integer;
var s: string;
begin
  m := -1;
  while (m < 0) or (m > 9) do
  Begin
      Write('Введите цифру (0-9): ');
      Readln(m);
  End;
  Case m of
    0: s := 'zero';
    1: s := 'one';
    2: s := 'two';
    3: s := 'three';
    4: s := 'four';
    5: s := 'five';
    6: s := 'six';
    7: s := 'seven';
    8: s := 'eight';
    9: s := 'nine';
  End;
  Write('The digit is called '); Writeln(s);
end.

warmup.txt

a) k = 6; p=false; d=3;
b) k = 235; p=true; d=235;
c) k = 71; p=true; d=1;
d) k = 7.2; выполнение невозможно - оператор mod работает только с целочисленными значениями (http://www.tutorialspoint.com/pascal/pascal_operators.htm)
e) k = 73; p=true; d=73;

p= true
d=1
Select Case k mod 10
 Case 3,2,7,5
 d = k
 Case 4,8
 p = false
 d =2
 Case 9,6
 p = false
 d =3
End Select 

warmup_check.pas

Program HelloWorld(output);
var k: integer;
var p: boolean;
var d: integer;
begin
    write('Input value for k: ');
    Readln(k);
    p := true;
    d := 1;
    Write('k mod 10 = '); Writeln(k mod 10);
    Case k mod 10 Of
        3,2,7,5: Begin
            d := k;
        End;
        4,8: Begin
            p := false;
            d := 2;
        End;
        9,6: Begin
            p := false;
            d := 3;
        End;
    End;
    Write('p = '); writeln(p);
    Write('d = '); writeln(d);
end.