45 секунд - 3/4 минуты, а значит за это время можно передать 4000Кб*(3/4)=3000Кб
Program z;
var
n,a,s:integer;
begin
n:=20; //Стоимость ручки
Writeln('Сколько ручек вы хотите купить?');
readln(a);
s:=n*a;
writeln('Стоимость покупки ',s,' руб');
end.
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд
<em>На Паскале:</em>
var x: integer;
begin
writeln('Введите число: ');
readln(x);
if x mod 9=0 then
writeln('Число кратно 9')
else
writeln('Число не кратно 9');
end.