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

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

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

var i : integer;

begin
  while i < 16 do
    begin
      write('Enter an integer : ');
      readln(i);
      writeln('The sum of the numbers is : ', i + 7);
    end;
end.

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

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

-- в двух условных операторах действия частично совпадают, а значит наблюдается дублирование кода. Перепишите код так, чтобы дублирования не было.

Подсказка: используйте вложенные блоки if().
Если идей нет, смотрите разбор решения.

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

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

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

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

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:

сумма баллов Коли и Миши больше 20

или произведение баллов Пети и Миши меньше 55

--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

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

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

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

Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

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

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

Пользователь вводит три числа, найдите из них максимальное.

Решите тремя способами:

1 способ: С использованием логической операции and.

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

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var
  a, b, c: integer;

begin
  write('Введите число a: ');
  read(a);
  write('Введите число b: ');
  read(b);
  write('Введите число c: ');
  read(c);

  write('Максимальное число: ');

   if (a > b) and (a > c) then
   writeln(a);
   if (b > a) and (b > c) then
   writeln(b);
   if (c > b) and (c > b) then
   writeln(c);

  readln();
end.

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

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var
  a, b, c: integer;

begin
  write('Введите число A, B, C: ');
  read(a, b, c);

  if (A > 17) and (B > 17) and (C > 7) then
    writeln('yes')
  else
    writeln('no');

  readln();

end. 

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

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

Pages

Subscribe to fkn+antitotal RSS