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

Урок 11

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

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

Урок 11

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

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

Урок 11

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

Решение 2 Задача 7 Урок 11

Урок 11

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

Решение 1 Задача 7 Урок 11

Урок 11

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

var a: integer;

begin
  writeln('Vvedite celoe chislo');
  readln(a);

  while a <> 22 do
  begin

      writeln('#');

    writeln('Vvedite celoe chislo');
    readln(a);

  end;

end.

КОНСОЛЬ

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

Урок 11

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

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

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

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5
program project1;
var i,j:integer;

begin
  i:=0;
    while(i<2)do
      begin
        j:=0;
        i:=i+1;
        while(j<5)do
          begin
            j:=j+1;
            write(j,' ');
          end;
        writeln();
      end;
  readln();
end. 

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

Урок 11

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

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

Урок 11

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

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

Урок 13.1 задача 7

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

program project1;
var numb, i:integer;

begin
  i:=0;
  write('vvedite chislo: '); readln(numb);
  if(numb<0)then
    writeln('ERROR!')
  else
    while(i<numb)do
      begin
        write(i,' ');
        i:=i+2;
      end;
  readln();
end.             

Pages

Subscribe to fkn+antitotal RSS