fkn+antitotal

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

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

var a,b,c : integer;

begin
  writeln('vvedite celie chisla a b c ');
  read(a,b,c);
  if ((A>17) and (B>17) and (C>7)) then
    writeln('Da')
  else
    writeln('Net');
  readln();
end.                        

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

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

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

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

var a,b : integer;

begin
  writeln('vvedite chisla ');
  read(a,b);
  if (a>b) then
    writeln(12)
  else
    writeln(888);
  readln();
end.              

Судя по практике, они и так выполняются без ререндера: http://fkn.ktu10.com/?q=node/14491

Задача 4 урок 13.2

Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице):

если ноль, то все кости справа:

---++++++++++

если три, то значащая часть слева, а все отстальное справа:

+++---+++++++

если девять:

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):

Задача 1 урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

- - - - - -
- - - - - -
- - - - - -
- - - - - -

program zadacha1;
var i, j ,n, m :integer;
begin
  n:=10;
  m:=5;
  repeat
    j:=0;
    repeat
      write('- ')
      j:=j+1;
    until j = m;
    writeln();
    i:=i+1;
  until i = n;
  readln();
end. 

Задача 21 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами.

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

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.