fkn+antitotal

Урок 12.1 Задача 6

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var a: integer;

begin
  a:=35;
  repeat
    if ((a mod 6)=0) then
      write(a, ' ');
    a:=a+1;
  until a=117;
  writeln();
  writeln('<<<Konec>>>!');
  readln();
end

.

Урок 12.1 Задача 5

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ).

var a: char;

begin
  repeat
    writeln('vvedite simvol : ');
    readln(a);
    if a<>'#' then
      writeln('&');
  until a='#';
  writeln('<<<Konec>>>!');
  readln();
end. 

Урок 12.1 Задача 4

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

Урок 12.1 Задача 2

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

var a: integer;

begin
  a:=55;
  repeat
    write (a, ' ');
    a:=a+1;
  until (a>9236);
  writeln();writeln();
  writeln('<<Konec>>');
  readln();
end.

Урок 15 Задача 4:

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

Урок 9 Задача 18

Была программа

// Вариант 1:
var a: integer;
begin
  writeln('Введите а:');
  readln(a);
  if (a > 5) then
     writeln('a')
  else
     writeln(5);

  readln();
end.

Ее переписали так:

// Вариант 2:

Урок 15 Задача 3:

У вас есть массив:

type
  myArr = array[1..8] of integer; 
var
  a: myArr;

-- целочисленный из 8 элементов.

Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #

Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения неиспользованных ячеек массива выводить ненужно.

Урок 15 Задача 2:

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

Урок 15 Задача 1:

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

Задача 5 Урок 13.2:

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.