uses crt;
var i,min,s:integer;
a:array[1..60] of integer;
begin
s:=0;
for i:=1 to 60 do a[i]:=random(35)+1;
min:=a[1];
for i:=1 to 60 do if min > a[i] then min:=a[i];
for i:=1 to 60 do if a[i] = min then inc(s);
writeln(s,' books for price = ',min,' ru.');
end.
7, 8, 9, 10, 11 - всего 5 штук
В начале S=0 и дальше 5 раз прибавляем 11
Вывод:
Ответ 55
//прога на Pascal`e
var
i: integer;
begin
for i:=100 to 999 do
if (i mod 9) = 0 then write (i, '; ');
end.
Утверждение, которому всегда можно поставить в соответствие одно из двух логических значений. Логическое высказывание принято обозначать заглавными латинскими буквами.
Ответ:
405 МБ.
Объяснение:
1) Изображение содержит 256 оттенков, поэтому один пиксель будет иметь информационный вес бит = 1 байт
2) Изображение весит 256*192*1 байт = 48 КБ
3) В сутках 24*60*60=86400 секунд, каждый снимок делается каждые 10 секунд, поэтому сделано будет 86400/10=8640 снимков.
4) Суммарный объем памяти, занимаемый снимками в сутки, равен 8640*48 КБ = 405 МБ.