Задание 3 Урок 9

Задание 3 Урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

Задание 2 Урок 9

Задание 2 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);

  if (a > b) then
      writeln(12)
  else
      writeln(888);

  readln();
end.    

Консоль:

Введите два целых числа: 
8
6
12
Введите два целых числа: 
6
8
888

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

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);

  if (a > b) then
     write(12)
 
  readln();
end.   

Консоль:

Введите два целых числа: 
10
7
12
Введите два целых числа:
7
10

урок 9 задача 9

урок 9 задача 9

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');

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

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

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

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

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

1 Вариант

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

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

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

program Project1;
var a, b:integer;
begin
  writeln('Введите 2 числа: ');
  readln(a, b);
  if (a > b) then
     writeln( 'a bolshe b')
  else
     writeln( 'b bolshe a')
  readln();
end.    

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

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

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

Способ 1:

Урок 15 задача 11

Урок 15 задача 11

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга, если среди есть неуникальные элементы, то удалите их, сдвинув значения влево, заполняя оставшиеся справа ячейки нулями.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для:

|1|-3|5|-3|9|5|8|

получим:

Pages

Subscribe to fkn+antitotal RSS