fkn+antitotal

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

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i:integer;
begin
  i := 34;
  while (i <= 117) do
  begin
     i := i + 1;
     if ((i mod 2)=0) then
     write(i, ' ')
              else if (i >= 45) and (i <= 99)
                   and ((i mod 2)=1) then
              write(i, ' ');
  end;
  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 станет отрицательным.

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

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

var i:integer;
begin
  i := 34;
  while (i <= 117) do
  begin
     i := i + 1;
     if ((i mod 2)=1) and ((i mod 3)=0) then
     write(i, ' ');
  end;
  readln();
end.  

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

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

46541

program task13_lesson11;
var a,b:integer;

  begin
       writeln('Enter 5 numbers integer :');
       readln(a);
       while (a mod 10) <> 0 do
         begin
           b:=a mod 10;
           a:=a div 10;
           write(b);
         end;
  readln();
  end.

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

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

program task12_lesson11;
var a,b: integer;
  begin
       a:=15 div 15;
       b:=15 mod 10;
       writeln(a,b);
       readln();

  end. 

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

program task11_lesson11;
var i:integer;
  begin
       i:=4;
       while i<=100 do
           begin
             writeln(i);
             i:=i+4;
           end;
       readln();

  end.  

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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()