Var
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
1 знак=8 бит
<span>8 разрядного двоичного кода, включая пробелы
</span>
тогда 8+8+8(пробел)+8+8+8+8+8+8+8+8= 88 бит
1дом Николай егерь
2 дом Роман врач
3 дом Семен тренер
4 дом Артур художник
Var
i,d,n,k:integer;
begin
Write('Введите трехзначное натуральное число: ');
Read(n);
k:=0;
for i:=1 to 3 do begin
d:=n mod 10;
if d mod 3=0 then begin
Inc(k);
Write(d,' ')
end;
n:=n div 10
end;
if k>0 then Write('- цифры, кратные трем')
else Write('Таких цифр нет')
end.
Примеры
Введите трехзначное натуральное число: 569
9 6 - цифры, кратные трем
Введите трехзначное натуральное число: 184
Таких цифр нет
Замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0.
Если это не так, то замените условие
d mod 3 = 0
на
(d mod 3 = 0) and (d>0)
4) 512000 Байт
5) а, б, д, ж
6) 128000б/с = 16000байт/с
1Кбайт=1024Байта
16000байт/с=15.625Кбайт/с
500Кбайт÷15.625КБайт/с=32 секунды
Ответ: 32 секунды
7) 3600 Кбайт = 28800 КБит
28800 ÷ 192 = 150 секунд
150 секунд = 2.5 минуты
Ответ: 2.5 минуты
8) xls
9) D:\SCHOOL\INFO
10) 102 Бит
11) 3.670016 (не очень уверена)
12) термин компьютерной графики?
13) монитор, видеопамять и процессор