Pascal: const n = 10; var a:array [1..n] of integer; i,max,c:integer; begin clrscr; readln (a[1]); max:=a[1]; c:=1; for i:=2 to n do begin readln (a[i]); if a[i]>max then begin max:=a[i]; c:=1; end else if a[i]=max then inc(c); end; writeln ('Kol-vo: ',c); end.
C++: #include <iostream> using namespace std;
int main() { int a[10]; int c = 0,max; cin >>a[0]; max = a[0]; for (int i = 1; i<10; i++) { cin >>a[i]; if (a[i]>max) { max = a[i]; c = 1; } else if (a[i]==max) ++c; } cout <<"KOL_VO: " <<c <<endl; return 0; }
Решение: Объем памяти занимаемого файла изображения равен кол-ву пикселов, умноженное на глубину цвета. 1) В первом случае у нас фигурируют два цвета: черный и белый, т.е. два пиксела. Глубина цвета таких пикселов равна 1. Таким образом, битов требует изображение. Однако, можно перевести биты в байты, поделив полученное значение на 8. Мы получим значение, равное 2500 байтам. 2) Глубина цвета равна логарифму кол-ва цвета пикселов, доступные изображению по основанию 2. В нашем случае изображение хранит в себе пикселы, которые могут иметь 16-цветовое значение. Значит, . Т.е. глубина цвета каждого пиксела составляет 4 бита. Теперь, Столько битов потребуется, чтобы компьютер смог запомнить данное изображение. Можно перевести биты в байты, поделив полученное значение на 8. Получим 10000 байтов.
битов требует изображение. Однако, можно перевести биты в байты, поделив полученное значение на 8. Мы получим значение, равное 2500 байтам.
. Т.е. глубина цвета каждого пиксела составляет 4 бита.
1) var
a,b,i,n:integer;
begin
n:=1;
readln(a);
readln(b);
for i:=a to b do
n:=n*i;
writeln(n);
end.
2)
var
n,s:integer;
begin
read(n);
s:=0;
repeat
s:=s+(n mod 10);
n:=n div 10;
until n=0;
writeln (s);
end.
3)
var
n,k,i:integer;
begin
read(n);
for i:= 100 to 999 do begin
if (i div 100)*((i div 10) mod 10)*(i mod 10)=n then
k:=k+1;
end;
writeln (k);
end.