fkn+antitotal

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

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

Решение:

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

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

Решение:

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

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

Решение:

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

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

7

Решение:

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.

Консоль:

39 45 51 57 63 69 75 81 87 93 99 105 111 117

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

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

Решение:

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

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

var
i: integer;
begin
     i:=1;
     while(i<=15) do
     begin
      writeln('vvedite chislo');
      readln(i);
      writeln(i+7);
     end;
    writeln('End');
readln();
end

.

Консоль:

Урок 8 задача 6

Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:
""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".

program Project1;
var a,b,c,d: string;

begin
  writeln('Введи 4 строки через enter');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  writeln((a = c) and (a <> d) or (d = c));

  readln();
end.             

Консоль

Урок 8 задание 5

Получите от пользователя три произвольных строки, одним выражением выполните конкатенацию следующим образом:
""первая строка + произвольный литерал + вторая строка + третья строка""
Результат конкатенации выведите на экран.

program Project1;
var n, v, y: string;

begin
  writeln('Введи 3 строчки');
  readln(n);
  readln(v);
  readln(y);
  writeln(n + v + '12' + y);
  readln();
end.          

Урок 8 задание 4

Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.

program Project1;
var a,b,c,d,e,w: string;

begin
  writeln('Введите 5 строк через enter');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  readln(e);
  w := a + b + c + d + e;
  writeln('Получим:', w)
  readln();
end.              

Урок 8 задание 3

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

program Project1;
var a,b,c,d,e: string;

begin
  c := 'ментос';
  write(c);

 readln();
end.         

Консоль

ментос