Вариант 2.

Номер (Вариант)

Задание

1

1. Найти сумму первых 10 натуральных чисел.

Program Z11;

Var N,S: integer;

Begin

S:=0;

For N:=1 to 10 do S:=S+N;

Writeln (‘сумма первых 10 натуральных чисел равна ‘, S);

End.

2. Упорядочение двух значений по возрастанию

Program Z12;

Var
  X,y: integer;
  V: integer;
Begin
  Write('Введите x,y: ');
  Readln(x,y);
  If x>y then
  Begin
    V := x;
    X := y;
    Y := v
  End;
  Writeln('Результат упорядочения по возрастанию: ',x,' ',y);
End.

2

1. Найти сумму любых 10 вещественных чисел, введённых с клавиатуры.

Program Z21;

Var N,S: real;

I: integer;

Begin

S:=0;

For I:=1 to 10 do

Begin

Write (‘Введите ‘, I , ‘ число’);

Readln (N);

S:=S+N

End;

Writeln (‘сумма 10 любых вещественных чисел равна ‘, S);

End.

2. Проверка числа на двузначность

Program Z22;

Var x: integer;
Begin
  Write('Введите x: ');
  Readln(x);
  If (x>=10) and (x<=100) then
    Writeln('Двузначное число')
  Else writeln('Не двузначное число')    
End.

3

1. Найти сумму четных чисел из первых 10 натуральных чисел.

Program Z31;

Var N,S: integer;

Begin

S:=0;

For N:=1 to 10 do

If (N Mod 2)=0 Then S:=S+N;

Writeln (‘сумма чётных из первых 10 натуральных чисел равна ‘, S);

End.

2. Наименование сезона по номеру месяца

Program Z32;

Var
  Month: integer;
  Season: string;
Begin
  Write('Введите номер месяца: ');
  Readln(Month);
  If (Month=1) or (Month=2) or (Month=12) then
    Season := 'Зима'
  Else if (Month=3) or (Month=4) or (Month=5) then
    Season := 'Весна'
  Else if (Month=6) or (Month=7) or (Month=8) then
    Season := 'Лето'
  Else Season := 'Осень';
  Writeln('Это ',Season)
End.

4

1. Найти сумму отрицательных из 10 любых вещественных чисел, введённых с клавиатуры.

Program Z41;

Var N,S: real;

I: integer;

Begin

S:=0;

For I:=1 to 10 do

Begin

Write (‘Введите ‘, I , ‘ число’);

Readln (N);

If N<0 Then S:=S+N;

End;

Writeln (‘сумма отрицательных из 10 любых вещественных чисел равна ‘, S);

End.

2. Определение того, является ли символ цифрой или буквой

Program Z42;

Var
  Symbol: char;
Begin
  Write('Введите символ: ');
  Readln(Symbol);
  Case Symbol of
    'A'..'z': writeln('Это маленькая английская буква');
    'A'..'Z': writeln('Это большая английская буква');
    '0'..'9': writeln('Это цифра');
  End;
End.

5

1. Обмен значений двух переменных с использованием третьей

Program Z51;

Var x,y: real;
Begin
  Write('Введите x,y: ');
  Readln(x,y);
  Var v: real; // вспомогательная переменная
  V := x;
  X := y;
  Y := v;
  Writeln('Новые значения x,y: ',x,' ',y);
End.

2. Словесное наименование сезона по номеру месяца

Program Z 52;
Var
  Month: integer;
  Season: string;
Begin
  Write('Введите номер месяца: ');
  Readln(Month);
  Case Month of
    1,2,12: Season := 'Зима';
    3..5:   Season := 'Весна';
    6..8:   Season := 'Лето';
    9..11:  Season := 'Осень';
    Else    Season := 'Вы ввели неверный номер месяца';
  End;
  Writeln('Это ',Season)
End.

6

1. Состоит ли двузначное число из одинаковых цифр

Program Z61;

Var x: integer;
Begin
  Write('Введите двузначное число: ');
  Readln(x);
  Var c1 := x div 10;
  Var c2 := x mod 10;
  If c1=c2 then
    Writeln('Цифры числа совпадают')
  Else writeln('Цифры числа не совпадают');
End.

2. Вычисление n!

Program Z62;

Var
  N,fact: integer;
  I: integer;
Begin
  Write('Введите n (n<=13): ');
  Readln(n);
  Fact := 1;
  For i := 2 to n do
    Fact := fact * i;
  Writeln(n,'! = ',fact);
End.

7

1. Определение четности числа

Program Z71;

Var x: integer;
Begin
  Write('Введите x: ');
  Readln(x);
  If x mod 2 = 0 then
    Writeln('Это четное число')
  Else writeln('Это нечетное число');
End.

2. Алгоритм Евклида поиска НОД

Program Z72;

Var a,b,c: integer;
Begin
  Writeln('Введите a,b: ');
  Read(a,b);  
  While b<>0 do
  Begin
    C := a mod b;
    A := b;
    B := c;
  End;
  Writeln('Наибольший Общий Делитель = ',a);
End.

8

3. Минимум из двух значений

Program Z81;

Var
  X,y: integer;
  Min: integer;
Begin
  Write('Введите x и y: ');
  Readln(x,y);
  If x<y then
    Min := x
  Else min := y;
  Writeln('Минимум = ',min);
End.

2. Числа Фибоначчи

Program Z82;

Const n = 25;
Var
  A,b,c: integer;
  I: integer;  
Begin
  A := 1;
  B := 1;
  Write(a,' ',b,' ');
  For i := 3 to n do
  Begin
    C := a + b;
    Write(c,' ');
    A := b;
    B := c;
  End;
End.

9

1. Выделение цифр из двузначного числа

Program Z91;

Var
  X: integer;     // двузначное число
  C1,c2: integer; // первая и вторая цифры двузначного числа
Begin
  Write('Введите двузначное число: ');
  Readln(x);
  C1 := x div 10;
  C2 := x mod 10;
  Writeln('Первая и вторая цифры двузначного числа: ',c1,' ',c2);
End.

2. Минимум из введенных

Program Z92;

Const n = 10;
Var  
  Min: integer;
  X: integer;
  I: integer;
Begin
  Writeln('Введите ',n,' значений: ');
  Read(x);  
  Min := x;  
  For i := 2 to n do
  Begin
    Read(x);
    If x<min then
      Min := x;
  End;
  Writeln('Минимальное значение = ',min);
End.

10

1. Обмен значений двух переменных с использованием третьей

Program Z101;

Var
  X,y: real;
  V: real; // вспомогательная переменная
Begin
  Write('Введите x,y: ');
  Readln(x,y);
  V := x;
  X := y;
  Y := v;
  Writeln('Новые значения x,y: ',x,' ',y);
End.

2. Вывод букв английского алфавита

Program Z102;

Var c: char;
Begin
  For c := 'a' to 'z' do
    Write(c,' ');
  Writeln;  
  C := 'A';
  While c<='Z' do
  Begin
    Write(c,' ');
    C := succ(c);
  End;
End.

11

1. Бросание кубиков

Program Z111;

Var
  R1,r2: integer; // значения на верхних гранях кубиков
Begin
  R1 := Random(6)+1;
  R2 := Random(6)+1;
  Writeln('Очки, выыпавшие на кубиках: ',r1,' ',r2);
  Writeln('Сумма очков равна ',r1+r2);
End.

2. Вывод цифр числа

Program Z112;

Var x: integer;
Begin
  Write('Введите x: ');
  Readln(x);
  Write('Цифры числа x в обратном порядке: ');
  While x<>0 do
  Begin
    Write(x mod 10,' ');
    X := x div 10;
  End;
End.

12

1. Вычисление гипотенузы по катетам

Program Z121;

Var
  A,b: real; // катеты
  C: real;   // гипотенуза
Begin
  Write('Введите катеты прямоугольного треугольника: ');
  Readln(a,b);
  C := sqrt(a*a+b*b);
  Writeln('Гипотенуза = ',c);
End.

2. Вычисление Aⁿ

Program Z122;

Var
  N,i: integer;
  A,p: real;
Begin
  Write('Введите a,n: ');
  Readln(a,n);
  P := 1;
  For i := 1 to n do
    P := p * a;
  Writeln(a,' в степени ',n,' = ',p);
End.

13

1. Вычисление расстояния между двумя точками на прямой

Program Z131;

Var
  A,b: real; // координаты точек
  R: real;   // расстояние между точками на прямой
Begin
  Write('Введите координату точки a: ');
  Readln(a);
  Write('Введите координату точки b: ');
  Readln(b);
  R := abs(a-b);
  Writeln('Расстояние между точками = ',r);
End.

2. Сумма и произведение введенных чисел

Program Z132;

Var
  I: integer;
  S,p: real;
  X: real;
Begin
  Writeln('Введите 10 чисел: ');
  S := 0;
  P := 1;
  For i := 1 to 10 do
  Begin
    Read(x);
    S := s + x;
    P := p * x;
  End;
  Writeln('Сумма введенных чисел = ',s);
  Writeln('Произведение введенных чисел = ',p);
End.

14

1. Вычисление A⁸

Program Z141;

Var a: real;
Begin
  Write('Введите a: ');
  Readln(a);
  Var a2,a4,a8: real; // вспомогательные переменные
  A2 := a * a;
  A4 := a2 * a2;
  A8 := a4 * a4;
  Writeln(a,' в степени 8 = ',a8);
End.

2. Определение простоты числа

Program Z142;

Var
  N: integer;
  Issimple: boolean;
Begin
  Writeln('Введите число: ');
  Readln(N);
  Issimple := True;
  For var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N)
    If N mod i = 0 then
    Begin
      Issimple := False;
      Break;
    End;
  If issimple then
    Writeln('Число ',N,' простое')
  Else writeln('Число ',N,' составное');  
End.

15

1. Вычисление площади круга

Program Z151;

Const Pi = 3.1415;
Var
  R: real; // радиус круга
  S: real; // площадь круга
Begin
  Write('Введите радиус круга: ');
  Readln(r);
  S := Pi*r*r;
  Writeln('Площадь круга равна ',S);
End.

2. Определение четверти, в которой находится точка

Program Z152;

Var
  X,y: integer;    // Координаты точки
  Quater: integer; // Номер четверти
Begin
  Write('Введите координаты точки: ');
  Readln(x,y);
  If x>0 then
    If y>0 then
      Quater := 1
    Else Quater := 4
  Else
    If y>0 then
      Quater := 2
    Else Quater := 3;
  Writeln('Номер четверти = ',Quater);
End.