Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
Отец сказал: "Сынок,после школы зайди в магазин и купи хлеб с молоком".
Получил задание - Сохранил в памяти - Выполнил задание
<span>Если "родителей должно быть не менее одной трети" (т.е. больше или равно), то в первом примере (где n=27, k=7) ответ должен быть 2, а не 3. 7+2=9 - это как раз 1/3 от 27. </span>
var n,k,m:integer;
begin
writeln;
readln(n);
readln(k);
m:=(n-1) div 3+1;
if m-k>0 then writeln(m-k) else writeln(0);
end.
Пример:
27
7
2
Задача 1.
Общее количество символов: 50*85*15= 63750
Один символ кодируется 8 битами или 1 байтом, следовательно объем текста = 63750 байт = 62,26 Кбайт
Задача 2.
Количество символов на странице: 60*64 = 3840
Разделив объем текста (в байтах) на количество символов на странице получим количество страниц: (9*1024)/3840 = 2,4
Следовательно ответ: 3 страницы
Задача 3.
Время передачи файла можно определить разделив объем файла( переведя в биты) на скорость передачи
t= (9*1024*8)/256 = 288 сек.
Задача 4.
В тексте содержится 51 символ, на каждый символ приходится 1 байт, следовательно фраза содержит 51 байт информации.