fkn+antitotal

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

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

var i: Integer;
begin
for i:=35 to 64 do
    if ((i mod 2) = 0) then
    write(i, ' ')
end.

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

У вас есть три числа (три переменные) найдите их медиану(link is external)

var a,b,c: integer;
begin
readln(a);
readln(b);
readln(c);
if ((a>b) and (c>a)) or ((b>a) and (a>c)) or ((a=b) and (a=c))then
    writeln(a);
if ((b>c) and (a>b)) or ((c>b) and (b>a)) then
    writeln(b);
if ((c>a) and (b>c)) or ((a>c) and (c>b)) then
    writeln(c);
end.   

консоль:

1
2
3
2

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

Изучите код:

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

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

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