fkn+antitotal

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var   i: integer;
begin
  i := 35;
  repeat
   if(((i mod 2) =0) and ((i mod 3) =0) and ((i mod 6) =0)) then
     writeln(i,' ');
   i := i + 1;
  until(i = 117);
  readln();
end. 

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var   i: Char;
begin
  repeat
   writeln('vvedi SIMVOL');
   readln(i);
   if(i <> '#') then
     writeln('&',' ')
  until(i = '#');
  readln();
end.  

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

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

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

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

var   i: integer;
begin
   i := 55;
   repeat
     write(i,' ');
     i := i + 1;
   until(i > 9236) ;
  readln();
end. 

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

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Пример работы в консоли:

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

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

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

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

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:

46541
(используйте опеции div и mod )

var  c: integer;
begin
  writeln('vvedi 5X chislo');
  readln(c);
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  readln();
end. 

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var i, c: integer;
begin
  i := 15;
  c:= i div 10 ;
  writeln(c);
  c:= i mod 10;
  writeln(c);
  readln();
end.  

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

var i: integer;
begin
  i := 4;
    while(i <= 100) do
       begin
         if((i mod 4) =0) then
         write(i, ' ');
         i := i + 1;
       end;
  readln();
end.