fkn+antitotal

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

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

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

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

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

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

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

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

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

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

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

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

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

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

var a, i:integer;
begin
  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.

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

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

var a, i:integer;
begin
  readln(a);
  if (a > 1) then
    for i:=a downto 1 do
      if (i mod 5 = 0) then
         write(i, ' ')
      else
  else write('Error');
  readln();
end.

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

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

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

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

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

Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

5
3
ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

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

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

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

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

Выведите на экран, все числа N единиц (число задает пользователь)

var N, i: integer;
begin
  readln(N);
  for i:=1 to N do
      write(1);
  readln();
end.