fkn+antitotal

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

program task4_lesson9;
var
  a,b,c:integer;
begin
  writeln('Enter three integers a,b,c "a" and "b" >17, and "c" > 7 :');
  readln(a,b,c);
  if (a>17) and (b>17) and (c>7) then
     writeln('yes')
  else
    writeln('no');
  readln();
end.

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

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

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

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

program task2_lesson9;
var
  a,b:integer;
begin
  writeln('Enter two integers :');
  readln(a,b);
  if a>b then
     writeln(12) else
     writeln(888);
  readln();
end.

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

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

program task1_lesson9;
var
  a,b:integer;
begin
  writeln('Enter two integers');
  readln(a,b);
  if a>b then
     writeln(12);
  readln();
end.

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

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

Задача 3 урок 20

Дано целое положительное число N, вычислите N! (эн факториал).

var N: integer;

function pow(N:integer):integer;
begin
   if(N=1) then
     result:=N
   else
     result:= N*pow(N-1);
end;

begin
  writeln('vvedite N>0 (int)');
  readln(N);
  writeln(pow(N));
  readln();
end.

Задача 2 урок 20

Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

Константы - неизменяемые значения, которые имеют имя как и переменные.

Значение константам присваивается один раз в момент объявления и поменять его после этого в ходе исполнения программы нельзя.

Объявление констант

Для объявления констант используется секция const, например:

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

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

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.