Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
const
s = 'байт';
var
i, sum : integer;
begin
sum : = 0;
for i : = 1 to 4 do
sum : = sum + ord (s[i]);
writeln (sum);
end.
2^i = 64
i = 6 бит приходится на 1 символ
3 * 40 * 60 * 6 = 43200 бит
43200 : 8 = 5400 байт
i,n,a: integer;
readln(n);
for i: =1 to n do
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
Популярные вопросы