Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
1 Ученик источник доска информационный канал 2 Боря источник газета инф. канал 3 радио источник Оля приемник 4гена источник мама приемник информационный канал телефон ВРОДЕ ТАК
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT((a(n)) / 3) = ((a(n)) / 3) THEN s = s + a(n)
NEXT i
PRINT s
END
Килобиты приводим в килобайты. То есть
Скорость в килобайтах = скорость в килобитах/8
Скорость = 32Килобайт в секунду
приводим время в секунды = 64 секунды
В каждой странице 512 байтов, значит на каждую страницу уйдёт
512/32 = 16 секунд.
64 секунд/16секунд = 4.
4 страницы текста было отправлено