fkn+antitotal

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

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

var a,i:integer;

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

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

var i:integer;

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

.

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

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

var a,b,i:integer;

begin
  writeln('vvedite chisla A i B: ');
  readln(a, b);
  if a>b then
    for i:= b to a do
      write(i, ' ')
  else
    for i:= b downto a do
      write(i, ' ');
  readln();
end.

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

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

var i:integer;

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

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

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.

Написать программу, где пользователь угадывает число (можно задать литералом) из диапазона от 1 до 10 за 3 попытки

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

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

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

Модицифируйте код:

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
    if i=4 then
      writeln(777);
    if i=5 then
      break;
  end;

  readln();
end.

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

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

var i, a: integer;

begin
  a:=1;
  while (i<=15) do
  begin
    writeln('vvedite chislo: ');
    readln(i);
    if (i<15) then
      begin
        a:=a+i;
        writeln(a);
      end;
  end;
  writeln('<<konec>>');

  readln();

end.

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

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

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

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

var i: integer;

begin
  while (i<=117) do
  begin
    i:=i+1;
    if ((i mod 2)=1)and((i mod 3)=0)and(35<=i)and(i<=117) then
      write(i, ' ');
  end;
  writeln();
  writeln('<<konec>>');

  readln();

end.

Решение

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