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

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

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

var a, b, c: integer;

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

  if (a > 17) and (b > 17) and ( c > 7 ) then
    writeln('да')
  else
    writeln('нет');
  readln();
end.

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

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

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

var a, b, c, x : integer;

var a, b, c, x : integer;

begin
  writeln('Введите три целых числа:');
  readln(a, b, c);
  if (b > c) then
    begin
      x := b;
      b := c;
      c := x;
    end;
  if (a > b) and (a < c) then
    writeln('да')
  else
    writeln('нет');
  readln();
end.  

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

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

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

var a, b : integer;

begin
  writeln('Введите два целых числа');
  readln(a, b);
  if (a > b) then
    writeln('"', 12, '"')
  else
    writeln('"', 888, '"');
  readln();
end.

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

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

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

var a, b : integer;

begin
  writeln('Введите два целых числа');
  readln(a, b);
  if (a > b) then
    writeln('"', 12, '"');
  readln();
end.

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

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

Есть код:

var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
if (a > c) then
begin
if (a > d) then
writeln ('Выбираем a');
writeln ('Может выбрали a');
  end;
readln();
end.  

-- исправьте форматирование.

Решение:

Задача 16 Урок 15

Задача 16 Урок 15

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m

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

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

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k

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

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

Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.

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

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

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

урок 13.1 задача 3

Выведите на экран таблицу умножения используя один цикл while и один repeat-until .

var i, j: integer;
begin
  i := 1;
  repeat
     j := 1;
     while j <= 9 do
        begin
          write (i,'*',j,'=',i*j,' ');
          writeln();
          j := j +1;
        end;
     i := i + 1;
  until i > 9;
  readln();
end.

Pages

Subscribe to fkn+antitotal RSS