Отчет по практике: Редактирование и отладка программ с помощью Pascal

Program as; Блок-схема

Uses crt;

Var a,b,x:integer;

Begin clrscr;

Readln(x);

If (x>=-5) and (x<=3) then

Writeln(‘да’) else writeln(‘нет’);

End.

(Вводим значение 2)

Ответ: Принадлежит

Задание 4.Дано 2х зн. число. Определить входит ли в него цифра 3

Program as; Блок-схема

Uses crt;

Var a: integer;

Begin clrscr;

Writeln(‘Введи 2х зн. число’);

Readln(a);

If (a div 10=3) or (a mod 10=3)

Then writeln(‘Входит’);

Else writeln(‘Не входит’);

Readln;

End.

(Вводим значение 53)

Ответ: Входит

Задание 5. Дано 2х зн. число. Определить какая из его цифр больше

Program as; Блок-схема

Uses crt;

Var a,d,e, max: integer;

Begin clrscr;