16 бит = 2 байта
60 кб = 61440 байт
теперь из формулы I=K*i выразим K = I/i = 61440/2= 30720 символов
теперь найдём количество страниц: 30720/(24*80) = 30720/1920 = 16 страниц
Уму+ верный ответ только большими буквами УМУ+
var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
Алгоритм
<span>1. Взять чайник.
</span><span>2.налить в него холодной воды.Если там есть вода вылить её.
</span><span>3.поставить на плиту.
</span><span>4.включить плиту.
</span><span>5.снять чайник с огня, когда вода закипит.
</span><span>6.Взять кружку для чая.
</span><span>7. положить в кружку заварки.
</span>8. налить кяпяток из чайника.
<span>9. когда чай заварится, вытащить пакетик.</span>