fkn+antitotal

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

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
begin
  for i := 1 to 100 do
      if (i mod 7) = 0 then
         write (i, ' ');
  readln();
end.

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

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i: integer;
begin
  for i := 35 to 117 do
      begin
        if (i mod 3) = 0 then
           write (i, ' ')
        else
          if (i >= 45) and (i <= 99) and ((i mod 2) <> 0) then
             write(i, ' ');
      end;
  readln();
end.  

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

program z5;
var a, b : integer;
begin
writeln ('vvedite dva chisla:');
readln (a, b );
if (a>b) then
writeln(a);
else
writeln(b);
readln();
end.

http://fkn.ktu10.com/?q=node/8539

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

http://fkn.ktu10.com/?q=node/8539

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

program z2;
var a,b:integer;
begin
writeln('vvedite chislo a');
readln(a);
writeln('vvedite chislo b');
readln(b);
if (a>b) then
writeln('12')
else
writeln('888');
readln();
end.

http://fkn.ktu10.com/?q=node/8539

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

program z1;
var a,b:integer;
begin
writeln('vvedite chislo a');
readln(a);
writeln('vvedite chislo b');
readln(b);
if (a>b) then
writeln('12');
readln();
end.

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

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

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

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

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i, a: integer;
begin
  writeln('Vvedite celoe chislo');
  readln(a);
  if (a > 100) then
       for i := a downto 1 do
            write (i, ' ')
  else
      for i := 1 to a do
            write (i, ' ');
  readln();
end. 

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

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