var i,p: integer;
begin
p:=1;
for i:=3 to 9 do p:=p*i;
writeln ('Произведение всех натуральных чисел на отрезке [3;9] равно ',p)
end.
Графический файл.Величина:Тип,Значение:Рисунок ВМР
Большой файл.Величина: Размер,Значение:35 мб
1) V=tv
2048 : 8 = 256 байт/с
16*256 = 4096 байт
2) v=V/t
2 : 4 = 0,5 кб/с
Кажется так
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>
Закрась клетки между двумя линиями, робот!