Вот программа:
var
x:integer;
function Fact(n:integer): integer;
var
i,sum:integer;
begin
sum:=1;
for i:=1 to n do
sum:=sum*i;
result:=sum;
end;
begin
readln(x);
writeln(Fact(x));
end.
--------->С помощью этой функции найти <span>факториалы пяти данных целых чисел.
- Вы не написали каких чисел</span>
1. 40Мб = 40960 Кб. Пусть V1 = 128 Кб/c, а V2 = 64Кб/c (по условию), то S1=20480Кб, а S2, соответственно, тоже 20480Кб. Отсюда t1= S1/V1 или t1=20480Кб/128Кб/с=160с. Соответственно t2=20480Кб/64Кб/c=320c. Отсюда t=160+320=480c или 480с/60с=8минут.
2. 19минут = 1140 секунд. Тогда размер файла составляет 17Мб*1140с=19380Мб или,примерно, 19Гб.
Т.к. 1Гб не оплачивается, то 19-1=18Гб трафицируются. Тогда 18Гб=18432Мб.
Цена составляет 18432Мб*0,06 рублей = 1106 рублей.
P.S. Не дешевый, однако, провайдер. :D
var a,b,c,max : real;
begin
read(a,b,c);
max:=(a+b+abs(a-b))/2;
max:=(max+c+abs(max-c))/2;
writeln(max);
end.
Цель: дойти до дома
↓
Маша→управляет медведем
↓
Результат: добралась до дома и угостила родных пирожками