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

begin clrscr;

writeln('Bведи х (литры),р (плотность)молока ');

М:=Х/100*Р

readln(x,p);

m:=x/100*p;

writeln(m);

readln;

end.

(Вводим значение 7л, 1030кг/м³ )

Ответ: 7,21 кг

Задание 6.Объем цилиндра равен V ,а площадь основания – S . Какова высота цилиндра H ?

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

uses crt;

var v,s,h:real;

begin clrscr;

writeln('Введи объем цилиндра и площ. его осн. ');

readln(v,s);

H := V/S

H:=v/s;

writeln('Высота цилиндра=',H);

readln;

end.

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

Ответ: 2м

Задание 7.Дана длина куба а . Найти объем куба v и площадь его боковой поверхности s .

program as;

uses crt;

var v,s,a:real;

begin clrscr;

V:=a*a*a S:=4*a*a

writeln('B???? ????? ????? ????');