fkn+antitotal

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

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

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

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

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

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

var a,b: integer;
begin
  writeln (' vvedite  chislo a');
  readln (a);
  writeln (' vvedite  chislo b');
  readln (b);
 if (a>b)
   then
   writeln ('naibolshee chislo a')
else
   writeln ('naibolshee chislo b');

  readln();
end.         

Консоль:

 vvedite  chislo a
8
 vvedite  chislo b
5
naibolshee chislo a

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

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

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

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

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

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

var a,b: integer;

begin
  writeln (' vvedite dva chelyh chisla') ;
  readln (a,b) ;
  if (a>b) then
   writeln (12)
  else
   writeln (888);

  readln();
end.

Консоль:

vvedite dva chelyh chisla
7
2
12

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

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

var a,b: integer;
begin
  writeln ('vvedite dva celih chisla: ');
  readln (a,b);

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

Консоль:

vvedite dva chelyh chisla
11
3
12

Урок 17 Задача 4:

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.

Подсказка: массив должен быть "of char".

Урок 17 Задача 3:

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

Подсказка: для определения принадлежности символа цифре используйте идею из этого кода.

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

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

var
  s: string;
  i: integer;
begin
  write ('Введите произвольную строку: ');
  readln(s);
  i := 5;
  if not (length(s) >=5 ) then
    writeln ('Ошибка')
  else
    while not (i > length(s)) do
    begin
      write (s[i], ' ');
      i:= i+5;
    end;
  readln();
end.

Вывод в консоли:

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

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.