1. Начало
2. k=0, i=0; Ввести: b, n, m[n]
// m[n] - массив из n элементов
3. Если m[i] = b, то k=k+1
// m[i] обращение к i-ному элементу массива
4. Если i<n, то i=i+1 и вернутся в п.3
5. Вывести: k
6. Конец
Я считаю, что словами написано верное условие, в приведенном фрагменте ошибка: вместо x > 0 должно быть x >= 0
var x: integer;
begin
readln(x);
if x >= 0 then
x := x - 50
else
x := x + 100;
writeln(x)
end.
Пример ввода:
0
Пример вывода:
-50
Ответ:
1)
1 Кбайт (килобайт) = 210 байт = 1024 байт
1 Мбайт (мегабайт) = 220 байт = 1024 Кбайт
1 Гбайт (гигабайт) = 230 байт = 1024 Мбайт
2)
минимальная единица измерения информации это Бит
3)
максимальная единица измерения информации это йобибайт
4)
цепочка из 8 нулей называется байт
5)
слово килобайт содержит 1 байт
6)
слово байт содержит 4 байта потому что 1 буква-1байт
Uses graphABC;
var xx: integer;
procedure Obl(x,y:integer);
begin
setpenwidth(1);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x,y,40);
circle(x+30,y,30);
circle(x-40,y,30);
end;
procedure Kor (x: integer);
begin
setpencolor(clbrown);
setbrushcolor(clbrown);
setpenwidth(3);
rectangle(x+50,250,x+150,270);
line(x+149,268,x+180,250);
line(x+180,250,x+149,250);
floodfill(x+155,255,clbrown);
setpencolor(clwhite);
line(x+100,245,x+180,245);
line(x+180,245,x+100,150);
line(x+100,150,x+100,245);
line(x+90,245,x+50,245);
line(x+50,245,x+90,170);
line(x+90,170,x+90,245);
floodfill(x+105,240,clwhite);
floodfill(x+85,235,clwhite);
end;
begin
setwindowsize(700,500);
lockdrawing;
xx:=-100;
repeat
clearwindow;
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,700,250);
setpenwidth(5);
setpencolor(clskyblue);
arc(350,-1350,1700,180,0);
floodfill(350,300,clskyblue);
setpencolor(claqua);
arc(350,-1050,1500,180,0);
floodfill(350,400,claqua);
floodfill(350,470,clCream);
Obl(300,90);
Obl(450,150);
Obl(150,110);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
Kor (xx);
sleep(1);
xx:=xx+1;
redraw;
until xx>1000;
end.