fkn+antitotal

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

Есть программа:

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

Получите от пользователя значения четырёх символьных значения, выясните -- выполняется ли следующее условие:

"""первая переменная равна третьей, не равна второй или третья равна четвертой"""

Составьте по указанному условию логическое выражение и выведите его результат на экран.

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

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

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

Получите от пользователя значения двух символьных переменных, сравните значение каждой с символьным литералом (используйте два разных) и выведите два результата сравнения на экран -- 1) сравнение первой переменной с первым литералом и 2) сравнения второй переменной со вторым литералом.

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

Получите от пользователя значения переменной, сравните его со значением символа пятёрки 5 и выведите результат сравнения на экран.

program u7z2;

var a: char;


begin

  writeln('vvedite simvol a');
  readln(a);
  writeln('a>5 ', a>'5');
  readln();

end.        

Консоль:

vvedite simvol a
7
a>5 TRUE

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

Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:

одним вызовов write (все три) -- т.е. передав несколько аргументов.
отдельно вызывая writeln для вывод значения каждой переменной

program u7z1;

var a, b, c: char;

begin
  a:= '2';
  b:='3';
  c:='4';
  write(a,b,c);
  readln();
  writeln(a);
  writeln(b);
  writeln(c);
  readln();

end.      

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

Пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом (одновременно второе меньше четвертого).

var a,b,c,d:integer;
  b1:boolean;


begin
  readln(a,b,c,d);
  writeln('chisla a = ',a);
  writeln('chisla b =',b);
  writeln('chisla c =',c);
  writeln('chisla d =',d);
  b1:= (a>c) and (b<d);
  writeln(b1);
  readln();
  end.          

Консоль:

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

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

var a,b,c:integer;
  b1:boolean;
  b2: boolean;


begin
  readln(a,b,c);
  writeln('chisla a = ',a);
  writeln('chisla b =',b);
  writeln('chisla c =',c);
  b1:= (a>17) and (b>17);
  b2:= c>7;
  writeln(b1 and b2);
  readln();
  end.      

Консоль:

20 20 8
chisla a = 20
chisla b =20
chisla c =8
TRUE

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

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

var a,b,c:integer;
  b1:boolean;
  b2: boolean;


begin
  readln(a,b,c);
  b1:=(a>b)and (a<c);
  b2:=(a>c) and (a<b);
  writeln(b1 or b2);
  readln();
  end.                   

Консоль:

12 11 13
TRUE

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

Даны два целых числа: A и B. Проверить истинность высказывания: «Сумма чисел Число A и число B больше 12».

var a,b:integer;
begin
  readln(a,b);
  writeln((a+b)>12);
  readln();
  end.                                                           

Консоль:

14
17
TRUE