fkn+antitotal

nestjs get params validaton controller

Задача 14 Урок 11

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

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

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

Задача 7 Урок 10.1:

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
begin
  for i := 1 to 100 do
    if (i mod 7 = 0) then
     write(i, ' ');
  readln();
end.

Задача 6 Урок 10.1:

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i: integer;
begin
  for i := 35 to 117 do
    if ((i mod 3 = 0) or (i mod 2 = 1) and (i >= 45) and (i <= 99)) then
     write(i, ' ');
  readln();
end.

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

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

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

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  for i := 35 to 117 do
    if ((i mod 2 = 1) and (i mod 3 = 0)) then
     write(i, ' ');
  readln();
end.

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

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному циклу.

var i, a: integer;
begin
  write('Введите целое цисло: ');
  readln(a);
  if (a > 100) then
   for i := a downto 1 do
    write(i, ' ')
  else
   for i := 1 to a do
    write(i, ' ');
  readln();
end.

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

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

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

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

var i: integer;
begin
  for i:=35 to 64 do
   if (i mod 2 = 0) then
    write(i, ' ');
  readln();
end.