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

D:=a div 10

E:=a mod 10

Readln(a);

D:=a div 10;

E:=a mod 10;

If d>e then max:=d else max:=e;

Writeln(‘Макс=’,max);

Readln;

Max:=e

Max:=d

End.

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

Ответ: 9

Задание 6.Даны 2 целых числа А и В, выяснить яв. ли 2 числа, четными

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

Var a,b: integer;

Begin clrscr;

Writeln(‘Введи 2 целых числа А и В’);

Readln (a,b);

If a mod 2=0 then writeln(‘четное’)

else writeln(‘не четное’);

If b mod 2=0 then writeln(‘четное’);

else writeln(‘не четное’);

Readln;

End.

(Вводим значение 5,6)

Ответ: не четное, четное

Задание 7.Решить пример -4x² +8,x<0

Y=

x² +3x+4,x>0 Блок-схема