Дима недавно сменил провайдера. Он не помнит какой конкретно у него тариф, но знает, что файл размером 960 Кб он передает за 36 секунд. Сколько полных Мб данных он передаст за 65 минут?
//1 var i: byte; begin for i := 2 to 20 do writeln('Цена за ',i,' = ', 20.4 * i); end.
//2 var i: byte; Price, TotalPrice: real; begin Price := 20.4; for i := 2 to 20 do begin TotalPrice := Price * i; writeln('Цена за ',i,'шт. = ', TotalPrice); end; end.