Решение:
V=g*i*t
V= 44100Гц*16 бит*120 сек= 8467200 бит
V= 8467200/8*1024*1024= 10 Мбайт
var
price:real;
i:byte;
begin
write('Введите стоимость 1 кг конфет ');
readln(price);
for i := 1 to 12 do
writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');
end.
Семантическая сеть во вложении
Дело в том, что любые действия человек совершает не из ничего, а из имеющейся у него информации. Человек может действовать только в соответствии с тем, что он знает — иначе из чего он создаст свои действия? Элементарный пример: чтобы ребенок научился говорить на русском языке, он должен вначале русский язык услышать от тех, кто уже на нем говорит. Иначе нет никаких шансов, что он изобретет весь русский язык сам, с нуля.
Program zadacha;
var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
begin
z:=x*3;
end else
begin
z:=y*3;
end;
write (z);
end.