Задача 13 урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:

46541
(используйте опеции div и mod, подразумевается решение через цикл )

var a, i, k: integer;
begin
  writeln('vvedite 5-znachnoe chislo');
  readln(k);
  for i := 0 to 4 do
  begin
    a := k mod 10;
    k := k div 10;
    write(a);
  end;
  readln();
end.  

Команды форматирования можно настроить в секции scripts файла package.json

Задача 12 урок 11

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

var a:integer;
begin
  a :=15;
  write(a div 10, '   ');
  writeln();
  write(a mod 10);
  readln();
end. 

Задача 11 урок 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

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

Задача 10 урок 11

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

Задача 9 урок 11

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

Задача 8 урок 11

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

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

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

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

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

Есть программа: