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

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

Uses crt;

Var a,b,c,d,k,z,x,v:integer;

Begin clrscr;

Writeln(‘Введи 4 числа’);

Readln(a,b,c,d);

If a>5 then k:=a;

If b>5 then z:=b;

If c>5 then x:=c;

If d>5 then v:=d;

Writeln(‘Общая сумма=’,k+z+x+v);

End.

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

Ответ: 24

Задание15.Даны 3 числа a,b,c. Найти максимальное

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

Uses crt;

Var a,b,c:integer;

Max,max1:integer;

Begin clrscr;

Writeln(‘Введи 3 числа’);

Readln(a,b,c);

Max:=b

Max:=a

If a>b then max:=a else max:=b;

If max>c then max1:=max else max1:=c;

Writeln(‘Максимально=’,max1);

Readln;

Max1:=c

Max1:=max

End.