Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
Таких чисел четыре. Первое, 110(2) = 6(10)
Следующее получится, если добавить старший бит, равный 1, 1110(2) = 14(10), затем добавляется 2 бита 10 -> 10110(2) = 22(10)
и последнее число , добавляется 2 бита 11
-> 11110(2) = 30(10)
Или другими словами, к числу 110(2) = 6(10)
добавляются числа, кратные 8, 6+8, 6+16, 6+24
выразим размер файла в Мб: 1562/1024=1,525Мб
теперь узнаем сколько таких файлов поместится на компакт-диск
650/1,525=426 файлов это и есть ответ
Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.