Паскаль повтор кода в цикле

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

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

Переберите в цикле все числа от 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

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

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

решение задачи

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

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

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

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

-------------------------------------------------------------------------------

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

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

Выведите на экран, все нечетные числа, делящиеся на 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

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

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

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

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

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

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

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

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

решение задачи

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

   readln();
end.  

#10.1 Цикл For в Паскаль. Цикл с известным числом повторений (цикл с параметром). Тело цикла.

В Паскале можно использовать три конструкции для организации циклов, они известны по именами:

  1. For
  2. While
  3. Repeat

В этом уроке -- мы познакомимся с первый из них -- циклом For.

Цикл For -- схема работы

Цикл For также называют циклом с известным числом повторений.
Он обладает следующей структурой (изобразим её на блок-схеме):
Пасклаь структрура и работа цикла  FOR блок схема

Subscribe to RSS - Паскаль повтор кода в цикле