fkn+antitotal

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Решение:

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

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

var e, r: integer;
begin
 e := 35;
 r := 117;
 repeat
   if (117 mod 2) = 0 then
     if (117 mod 3 and  6) = 0 then
       writeln(e);

 until (e = r) ;

 readln();
 end.
              

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

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

Решение:

var e, v: char;
begin
  e := '&';
  repeat
    writeln('Введите символ(После каждого нажатия Enter)');
    readln(v);
    writeln(e);
  until (v = e) ;
end.    

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

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

Решение:

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

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

Решение:

program Project1;
var  r, f: integer;
begin
  f := 55;
  r := 9236;
  repeat
    writeln(f, '');
    f := f + 1;
  until  (f=r);

  readln();
end.

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).

Причина не очень понятно в чем именно была. При повторных запусках вроде все нормально

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

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

var b,s,i,j,a,w: integer;
begin
  writeln('Введите число');
  readln(b);
  s:=3;
  w:=1000000;
  for i:=1 to 7 do
    begin
      for j:=1 to 13 do
       begin
         a:=(b div w);
          if (j<=s+a) and (j>a) then
            write('-')
            else
             write('+');
            end;
      writeln();
        b:=(b mod w);
        w:=(w div 10);
      end;
readln();
end.  

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

Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице):

если ноль, то все кости справа:

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

если три, то значащая часть слева, а все остальные справа:

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

если девять: