Задание 16 Урок 11

Задание 16 Урок 11:

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

урок 9 задача9

урок 9 задача 9

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');

задача 5 урок 9

урок 9 задача 5

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var
   a,b :integer ;
begin
writeln('напишите значение a');
readln(a);
writeln('напишите значение b');
readln(b);

if(a<b) then

writeln(b);
 readln();
if(a>b) then

writeln(a);
 readln();
end.
                      

задание 6 Урок 21

Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером


задание 6 Урок 21

задание 5 Урок 21 ( вариант вывода с циклом)

Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого

задание 5 Урок 21 ( вариант вывода с циклом)

задание 5 Урок 21

Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого


задание 5 Урок 21

program U21z5;
var
  n: integer;
procedure fibonachi(n:integer; f0:integer =0; f1:integer =1);
begin
  if(n > 0) then
  begin
    writeln(f1);
    fibonachi(n-1, f1, f0+f1);
  end;

end;

begin

  write('Vvedite chislo: ');
  readln(n);
  writeln();
  fibonachi(n);

  readln();
end.

задание 4 Урок 21

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

задание 4 Урок 21

program U21z4;

function fact(n:integer):integer;
begin
  if n = 1 then
    fact:= 1
  else
    fact:= n*fact(n-1);
end;
begin
  writeln(fact(6));
  readln;

end.    
         

задание 3 Урок 21

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

задание 3 Урок 21

program U21z3;
procedure AtoB( a,b:integer);
begin
if (a < b)  then
  begin
    writeln(a);
    AtoB(a + 1,b);
  end;
end;

begin
  AtoB(2+1,8);
  readln();
end.

задание 2 Урок 21

Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

задание 2 Урок 21

program U21z2;
var n : integer;

 procedure OneToN(m,n: integer);
  begin
      if(m < n ) then
      begin
         writeln(m + 1);
         OneToN(m + 1, n);
      end
  end;
begin
  OneToN(0,8);
  readln();
end.       

Pages

Subscribe to fkn+antitotal RSS