fkn+antitotal

Repeat/Until

{12-1.1 Выведите на экран, все числа от 55 до 9236.}

var a,b:integer;
begin
  a:= 55;
  b:= 9236;
  repeat
    write(a, ' ');
    a := a+1;
  until (a>b);
  readln();
end.

Урок 21.Задача №2

Есть массив (пусть не более 10 элементов):

	
[0, 3, 2, 1, 0, 3, 2, 4, 0, -5]

Задача: перенести все нули в конец, так чтобы в итоге получилось:

[3, 2, 1, 3, 2, 4, -5, 0, 0, 0]

Решите со сложностью не более чем 2N

ssh_exchange_identification: Connection closed by remote host

Проблема наблюдается при попытке подключить в контейнер docker, с установленным в нем SSH

Помогла переустановка ntfs-3g:

sudo apt-get purge ntfs-3g
sudo apt-get install ntfs-3g

-- после чего флешку пришлось переподключить и все заработало)

11. While

16 {У вас есть число z=5. Пользователь вводит числа в цикле,
если за последние 4 попытки ввода было хотя бы одно число больше или равно 15,
то увеличивайте число z на 1 в ответ на каждое введенное число,
а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.}

11. While

11. While

14 {У вас есть число z=5. Пользователь вводит числа в цикле,
если очередное введенное число больше или равно 15, то увеличивайте число z на 1
в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1.
Цикл и программа должны завершиться, когда число z станет отрицательным.}

11. While

{Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим: 46541
(используйте операции div и mod )}

var a,b : integer;
begin
writeln('write five-digit number');
readln(a);
while ((a mod 10) <> 0)  do
begin
  b:= a mod 10;
  a:= a div 10;
  write(b);
end;
readln();
end. 

11. While

{Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)}

begin
write(15 div 15, ' ');
write(15 mod 10);
readln();
end.    

11. While

{Вывести на экран все числа от 4 до 100 с шагом 4,
т.е.: 4 8 12 16.......100}

var a:integer;
begin
a := 0;
while (a <> 100) do
  begin
    a:= a + 4;
    write(a, ' ');
  end;
readln();
end.   

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100