fkn+antitotal

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

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

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

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

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

Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

5
3
ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

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

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

var i:integer;
begin
  for i:=35 to 64 do
     write(i, ' ');
  readln();
end.

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

Выведите на экран, все числа N единиц (число задает пользователь)

var N, i: integer;
begin
  readln(N);
  for i:=1 to N do
      write(1);
  readln();
end. 

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

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

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

Пользователь вводит число, определите делится ли оно на 4

var a: integer;
begin
  readln(a) ;
  writeln(a, ' делится на 4:', (a mod 4) = 0) ;
  readln();
end.

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

Была программа

// Вариант 1:
var a: integer;
begin
  writeln('Введите а:');
  readln(a);
  if (a > 5) then
     writeln('a')
  else
     writeln(5);
 
  readln();
end.

Ее переписали так:

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

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

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

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

У вас есть код:

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f = 0 then
  else
    writeln('Не равно 0!');
 
  readln();
end.

-- который сообщает пользователю, что число не равно нулю, если это действительно так, или в обратной ситуации не делает вообще ничего.

Задача: Перепешите это код в неполной форме (без использования else).

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

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.