<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m,n:integer;
Write('Введите n и m: '); Read(n,m);
Writeln('Сумма n+...+m равна ',Range(n,m).Sum);
Writeln('Произведение n*...*m равно ',
Range(n,m).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
Введите n и m: 6 27
Сумма n+...+m равна 363
Произведение n*...*m равно 90740578753486268006400000
Var
a, b, c, summ, d, den:real;
beginwrite('Введите кол-во км начальные: ');readln(a);
write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);
write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);
den:=0;
while a<c do begin d:=a/100*b; // узнаем, на сколько увеличивается растояние a:=a+d; den:=den+1; end; writeln(den);
<span>end.
Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)</span>
1)800*640=512000-пикселей
2)24=2в степени 5
5-бит 1 пиксель
3)512000*5=2560000-бит
3)2560000\8\1024=312.5Кб(вроде)
K=32*48=1536
I=1536*16=24576 бит /8/1024 = 3КБ
n=30/3=10 страниц
Ответ: 2) 10