Самостоятельная работа по программированию (на  языке Паскаль)

1 вариант.

1.      Найдите  ошибки в программе. Задача:  определить кто старше: Маша или Саша?

 var s,m,с: integer;

begin

readln (s,m);

then if s=m then write('СашаиМашаровестники')else  write ('СашастаршеМаши')

 else  write ('МашастаршеСаши')

  end

2.  Найдите  значение переменной а после выполнения программы:

var a,b: integer;

begin

a:=1848;

b:=(a div 100)*10+9:

a:=(10*b-a) mod 100;

writeln (‘a=’, a);

writeln (‘b=’, b);

end.

3.      Написать программу, нахождения суммы трехзначного числа, если это число разложить на разряды.

4.      Написать программу, возведения числа в квадрат, если оно положительное, иначе вывести на экран фразу, что число отрицательное.

5.      Произвести обмен переменных:

 На входе:  A:=50                           B:=80                   C:=100

На выходе:  A:=100                      B:=50                   C:=80

6.       Написать программу, которая определяет по числу день недели (например, если это 2 день недели- то это вторник, если 7- то это воскресенье)

Самостоятельная работа по программированию (на  языке Паскаль)

2       вариант.

1.      Найдите  ошибки в программе. Задача:  определить является ли число четным?

 var a,m,с: integer;

begin

readln (s,m);

then if a>0 then write('числочетное’)else  write ('числонечетное')

end

2.  Найдите  значение переменной а после выполнения программы:

var a,b: integer;

begin

a:=1851;

b:=(a div 100)*10+9:

a:=(10*b-a) mod 100;

writeln (‘a=’, a);

writeln (‘b=’, b);

end.

3.      Написать программу, нахождения среднего значения суммы трехзначного числа, если это число разложить на разряды.

4.      Написать программу,  если число кратное трем, то возвести его в квадрат, иначе вывести на экран фразу, что число не кратное трем.

5.      Произвести обмен переменных:

 На входе:  A:=25                           B:=75                   C:=105

На выходе:  A:=75                         B:=105                 C:=25

6.       Написать программу, которая определяет по количеству углов какая это геометрическая фигура (например, если это 3 угла - то это треугольник)