uses crt;
var
x,c:real;
begin
write('Сколько стоит проездной? '); read(x);
write('Вы ездите без билета. Сколько составляет штраф? '); read(c);
write('За безбилетный проезд Вас оштрафовали за месяц на ',5*c,' рублей.');
if (5*c>x) then write('Это невыгодно. Купите проездной.')
else write('Это выгодней, чем покупать проездной каждый месяц.');
end.
Var
arr : array [1..30] of integer;
sum, count, i, a : integer;
begin
read (a);
for i := 1 to 30 do read (arr[i]);
count := 0; sum := 0;
for i := 1 to 30 do
begin
if arr[i] < 0 then sum := sum + arr[i]
else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1;
end;
writeln (sum, ' ', count);
end.
var
arr : array [1..30] of integer;
i : integer;
begin
for i := 1 to 30 do read (arr[i]);
for i := 30 downto 2 do
if arr[i] * arr[i - 1] < 0 then // проверка знака
begin
writeln (i - 1);
halt; // Остановка программы
end;
writeln ('-1'); // Таких нет
end.
Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje
Ответ во вложениях, с решением
6 Кбайт = 6 * 1024 * 8 бит
Определим, сколько бит занимает один символ сообщения. Для этого разделим это количество бит на количество символов:
(6*1024*8) / 6144 = (6*1024*8) / (6 * 1024) = 8 бит.
Один символ сообщения занимает 8 бит. Для подсчета количества символов, которое можно закодировать этим количеством бит, возведем 2 в степень количества бит:
2^8 = 256
Ответ: 256 символов.