Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
<span> b[i] := a mod 2;
</span><span> a := a div 2;
</span> end;
<span> n := i;
</span><span> for i := n downto 1 do </span><span>write(b[i]);
</span><span>end.
Проверено:)</span>
С проверочными данными сами разбирайтесь...
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ArrFill(ReadInteger('n='),ReadInteger('m=')*60);
Range(1,a.Length-1).ForEach(t->begin a[t]:=a[t-1]+10 end);
a.Println; a.Sum.Println;
end.
Пример:
n= 5
m= 10
600 610 620 630 640
51 ч 40 мин
</span>
1) процедурой textcolor(); Например textcolor(1);
2) Очень много применений, например для удобства чтения программы, паскаль не чувствителен к регистру.
3) стрелки направлений(4 штуки), кнопки Home и End, также Tab.
4) 1.мышкой, 2.зажав Shift, стрелочками, также Shift+Ctrl+стрелка.
С тебя спасибка!
Вход Решение
k 10 10 11
s 10 10+10 = 20 20+11=31
Напечатано будет 31.
Только почему цикл от 10 до 11 (проверь строчку <span>for k=10 to 11 do)</span>
А)Начало ->
Ввод массива ->
Ввод X ->
Ввод Y ->
Если X>Y
->no->End
->yes->
p=0 ->
∨-> если элемент массива (p) > X, элемент массива (p) = X ->
если элемент массива (p) < Y, элемент массива (p) = Y ->
p = p + 1 -> если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
б)Начало ->
Ввод массива ->
p=0 ->
∨-> если элемент массива (p) \%(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)\%3
->p=p+1
->если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец