Там закладочка, в которой есть кнопка для нумеровки страницы.
Например таракан не любит мышь не любит кошку не любит человека не любит таракана
В порядке убывания: а) гбайт, тбайт, кбит, байт б) тбайт, мбайт, кбайт, байт в) тбайт, мбайт, кбит, байт г) кбит, кбайт, мбайт,
runo [167]
В порядке убывания ответ Б:
Терабайт = 1024 Гигабайта
Гигабайт = 1024 Мегабайта
Мегабайт = 1024 Килобайта
Килобайт = 1024 Байта
Байт = 8 Битам
И ответ В тоже верный.
Килобит = 1024 бита
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.