8.1.4. Циклы с условием

Презентация

Урок 4. Циклы While и Repear с условием

View more presentations or Upload your own.

Задания на 3

Задача 1.

Написать программу, которая в последовательности целых чисел определяет их количество. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в числовую последовательность). Программа должна вывести одно число: количество чисел.

uses crt;

var N, K : integer;

begin

   K := 0;

   Write(‘Введите первое число’)

   readln(N);

   while (N <> 0) do

      begin

          K := K + 1;

          Write(‘Введите следующее число’)

          readln(N)

      end;

 writeln(K)

end.

Дополнительно

Изменить программу вывода:

• ·         Четных чисел
• ·         Суммы чисел
• ·         Средней температуры за несколько дней

Задания на 4 и 5

Задача 3. Известны оценки по информатике учеников класса,. Выяснить, есть ли среди них двойки.

Задача 4. Ввести с клавиатуры собственные оценки по любому предмету за текущую четверть. Вычислить средний балл.

Задача 5. Известна масса каждого из 15 учеников класса. Верно ли, что масса самого тяжёлого из них превышает массу самого лёгкого более, чем в два раза?