Масло-салома , каприз-приказ соринка-росинка
Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.
Ответ:
2000
Объяснение:х делится без остатка на 4
И 100, или делится на 400 без остатка, к данному условию подходит только число 2000
Способ без использования архиватора:
t = I / v
t = (80 * 2^23) / 2^22 = 160 с
Способ с использованием архиватора:
Найдём 70 процентов от исходника.
0.7 * 80 * 2^23 = 56 * 2^23
(56 * 2^23) / 2^22 = 112с
На сжатие требуется 23 секунды, на распаковку еще 12, 122 + 23 + 12 = 147
Ответ: А147
Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
<span>end.</span>