Ответы и объяснения

2013-10-31T18:03:58+04:00
№2
program
q;var v,r:real;
begin
write('Введите радиус>> ');
readln(r);
v:=(4*3.14*r)/3;
writeln('Объем шара: ',v:0:2);
end.

№3
program q;
var a,b,c,d,s:real;
begin
write('Цена конфет "Красная шапочка">>  ');
readln(a);
write('
Цена конфет "Алые паруса">>  ');
readln(b);
write('
Цена конфет "Воронежские">>  ');
readln(c);
write('
Цена конфет "Чародейка">>  ');
readln(d);
s:=5*a+2*b+c+d*2.5;
writeln('Цена набора: ',s);
end.

№4
program q;
var x,y,z:real;
beginwrite('Цена сахара >> ');
readln(x);
write('Цена муки>> ');
readln(y);
write('Цена риса>> ');
readln(z);
writeln(' :',3*x+5*y+z);
end.