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

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

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

Задача 5 урок 12

http://fkn.ktu10.com/?q=node/8674

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

Вариант 1:

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

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

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

1-й способ:

Задача 4 урок 12

http://fkn.ktu10.com/?q=node/8674

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

program task4_lesson12;
var
  i:integer;
begin
  i := 35;
  repeat
    if ((i mod 2) = 0) and ((i mod 6) = 0) then //проверка цсловия
    writeln(i);
    i := i + 1;
  until (i > 117);
readln();
end.         

Задача 3 урок 12

http://fkn.ktu10.com/?q=node/8674

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

program task3_lesson12;
var i : char;
begin
  repeat
    write('enter char : ');
    readln(i);
    writeln('&');
  until (i = '#');
end.

Задача 2 урок 12

http://fkn.ktu10.com/?q=node/8674

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

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

http://fkn.ktu10.com/?q=node/8674

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

program task1_lesson12;
var i : integer;
begin
  i:=55;
  repeat
    writeln(i);
    i := i + 1;
  until (i > 9236) ;
readln();
end.

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

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

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

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

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

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

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

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

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

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

Pages

Subscribe to fkn+antitotal RSS