fkn+antitotal

Урок 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

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

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

var a:integer;
    b:real;

begin
  readln(a,b);
  writeln('pervoe chislo bolshe vtorogo ',a>b);
 readln();
  end.               

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

2 3
pervoe chislo bolshe vtorogo FALSE

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

Сравните число 8 и число 9.55, выведите результат сравнения на экран.

begin
  writeln(8>=9.55);
  readln();
  end.  

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

FALSE

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

Вычислите в тетради значения выражений (по шагам как в примерах урока выше):

true AND true OR (5>8)
false AND false OR (8>=8)
true AND ((5 true OR (8=9) OR false
true OR ((77+5)>99)
true OR (55 + 2 (2=2) OR true AND true
false OR (true AND true AND (22 > 4))

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

Вычислите в тетради значения выражений (по шагам как в примерах урока выше):
true AND true
false AND false
true AND (true AND true)
true OR false
true OR true
true OR true AND false
false OR true AND true
false OR (true AND true)
true OR (true AND true)
true OR (false AND true) OR true
true OR (false AND true) OR true AND false

Урок 10 задача 2

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания
Иначе в порядке убывания

program Project1;
var y, t:integer;
begin
 writeln('Введите целое число y');
 writeln('Введите целое число t');
  if ( y > t) then
    for y to t do
  else
    for y downto t do
 readln()
end.             

Урок 10 задача 1

Выведите на экран, все четные числа от 35 до 64.

program Project1;
var y:integer;
begin

  for y:=35 to 64 do
    if ((y mod 2) = 0) then
       write(y, ' ');

  readln();
end.         

Консоль:

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64