fkn+antitotal

задача 2 урок 15

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

program task_2_lesson_15;
var a: array[1..7] of integer;
  i, b: integer;
begin
  for i := 1 to 7 do
    begin
      readln(b);
      a[i] := b;
    end;
  write('[');
  for i:= low(a) to high(a) do
    write(a[i],' ');
  write(']');
  readln
end.

Задача 1 урок 15

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

Решение:

Задача 1

Решите на Паскале и/или JS Задачку №10 Урока 17, про расчет выражений вида за один проход строки:

Входные данные Результат

Напомним задачу по формам Бэкуса-Наура:

Для описания выражений вида:

7
1+23-4+6-7+8
5+2

(суммы и разности целых чисел, количеством чисел от одного и более)

Можно использовать форму:

Формы Бэкуса-Наура -- подход к описанию синтаксических конструкций, при котором одни фрагменты выражения определяются через другие.

Этот подход используется для описания синтаксиса языков программирования.

Далее мы рассмотрим описание т.н. расширенных формы Бэкуса-Наура (РФБН).

Выражение РФБН

В левой части записывают название термина (выбранное слово), а справа после символа ::= его определение уже в терминах РФБН:

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

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

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

program Project112;
var a,i: integer;
begin
  a:=1;
  while a<15 do
    begin
      i:=a;
      writeln('vvedite');
      readln(a);
      if (a<15) then
        writeln(i+a)
    end;
  writeln('konec');
  readln();
end.   

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

program Project111;
var a: integer;
begin
  a := 1;
  while (a <= 15) do
    begin
      writeln('vvedite celoe chislo:');
      readln(a);
      writeln(a + 7);
    end;
  writeln('Konec');
  readln();
end. 

http://fkn.ktu10.com/?q=node/7341
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Урок 11

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

Пример работы в консоли: