fkn+antitotal

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

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

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

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

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

program project105;
var i: integer;
begin
  for i:=35 to 117 do
   begin
     if ((i mod 2) = 0) then
         write(i, ' ');
    end;
    for i:=45 to 99 do
    begin
      if ((i mod 2) = 1) then
         write(i, ' ');
   end;
  readln();
end.  

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

program project104;
var i: integer;
  begin
    for i:=35 to 117 do
    if ((i mod 3) = 0) then
      writeln (i);
    readln();
  end. 

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

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

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

program project102;
var i: integer;
begin
  writeln ('vvedite celoe chislo');
  readln (i);
  for i:=i downto 1 do
    begin
      if (i>1) and ((i mod 5) = 0) then
        writeln (i,' ');
    end;
      if i<1 then
        writeln ('Oshibka');
        readln();
end. 

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541

var
n,m: longint;
begin
writeln ('введи-ка число');
readln(n);
m := 0;
while n>0 do begin
m := m*10 + n mod 10;
n := n div 10;
end;
writeln(m);
end.

http://fkn.ktu10.com/?q=node/7341
Получите первую и последнюю цифры числа 15 с помощью операций div и mod (решается без цикла)

var  a:integer;
begin
  writeln('vvedite chislo 15 '); 
    readln (a);
    writeln ('pervaya cifra',' ', a div 10,' ', 'vtoraya cifra',' ', a mod 10);
 readln();
  end.  

http://fkn.ktu10.com/?q=node/7341
Вывести на экран все числа от 4 до 100 с шагом 4

var i, a:integer;
begin
  for i:=4 to 100 do
  begin
  if i mod 4=0 then  
    writeln(i,' '); 
    end;
 readln();
  end.  

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.