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

Задание 3. Вычислить площадь огорода, имеющего форму прямоугольника, если известны стороны А и В

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

uses crt;

var a,b,c:integer;

begin clrscr;

writeln('Введи стороны А и В ');

readln(a,b);

C: = (A + B)*2

c:=(a+b)*2;

writeln('Площадь огорода =',c);

readln;

end.

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

Ответ:22

Задание 4. Найти среднее арифметическое чисел x,y,z

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

uses crt;

var x,y,z:integer; d:real;

begin clrscr;

writeln('Bведи x,y,z');

readln(x,y,z);

D: =(X+Y+Z)/3

d:=(x+y+z)/3;

writeln(d:5:2);

readln;

end.

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

Ответ: 6.00

Задание 5.Найти массу х литров молока, если известно, что плотность молока р кг/м³

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

uses crt;