Program Program1;
Var
a:array [1..10] of integer;
i:integer;
rez:boolean;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],',');
end;
rez:=false;
for i:=1 to 10 do
begin
if (i>1) and (a[i]=a[i-1]) then rez:=true;
if (i<10) and (a[i]=a[i+1]) then rez:=true;
end;
if rez then writeln(' Есть одинаковые соседние элементы') else
writeln(' Нет одинаковых соседних элементов');
<span>end.</span>
Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон
Ответ:
1. Задача
2048 × 1536 × 24 =75 497 472 бит
2. Задача
Для кодирования одного из 256 цветов требуется log(2)256 = 8 бит (2^8=256). Объем изображения = 32*32*8 бит = 32*32*8 / 8 байт = 32*32 байт = 32*32 / 1024 Кбайт = 1 Кбайт
Uses crt;
var a,b:integer;
begin
randomize;
a:=random(100);
writeln(a);
repeat
readln(b);
if b=100 then writeln('дополнено');
if b<100 then writeln('прибавь еще');
if b>100 then writeln('убавь-ка');
until b=100;
end.
#include <bits/stdc++.h>
using namespace std;
int a[10];
int main()
{
string s;
cin >> s;
for (int i = 0; i < s.length(); ++i)
a[s[i] - '0']++;
for (int i = 0; i < 10; ++i)
if (a[i])
{
cout << a[i];
return 0;
}
}