pascal

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

Задана последовательность символов, имеющая следующий вид: p1q1p2q2p3...qn–1pn, где pi — цифра, а qi — знак арифметического действия из набора {+, –, *}. Вычислите значение выражения, предполагая, что действия выполняются согласно правилам арифметики в один проход цикла

Плюсы Паскаля для обучения

Pascal (в виде Delphi или FreePascal) до сих пор используется в реальных проектах, но все-таки он действительно слабо распространен (в сравнении с популярнейшими ЯП), тем не менее для обучения у этого языка есть существенные плюсы:

Урок 21. Задачи 1-7

Задача 1 Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).

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

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

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

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

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

Пользователь вводит целые числа, в ответ выводите символ #.
Если введенное пользователем число равно 22, то завершите цикл
не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

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

Модификация одной из пред. задач: Пользователь вводит целые числа.
Пока он не введёт число большее 15, в ответ на каждое введённое число
выводите сумму этого числа и пред-предыдущего введённого им числа,
если это число чётное, иначе просто запрашивать новое число.
Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

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

Модификация одной из пред. задач: Пользователь вводит целые числа.
Пока он не введёт число большее 15, в ответ на каждое введённое число
выводите сумму этого числа и двух предыдущих введённых им чисел
(предыдущего и пред-предыдущего), если же введённое число больше 15,
то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

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

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

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

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

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