fkn+antitotal

Задача 5 Урок 12.1

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

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

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

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

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

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

var i: char;
begin
  repeat
   writeln('vvedite simvol');
   readln(i);
    write('&');
  until (i = '#');
 readln();
end.

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

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

var i: integer;
begin
  writeln('vvedite chislo');
  readln(i);
  repeat
    if((i mod 23) = 0) then
    write(i, ' ');
    i := i-1;
  until (i <= 0);
  readln();
end. 

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

Дано натуральное число N. Вычислите сумму его цифр.

var n: integer;
function Summ(n: integer): integer;
begin
  if (n < 10) then
    result:=n mod 10
  else
    result:= (n mod 10) + Summ(n div 10);
end;

begin
  writeln('Vvedite n');
  readln(n);
  writeln(Summ(n));
  readln();
end.

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

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

var n: integer;
function Fibbonschi(n: integer): integer;
begin
  if (n = 0) then
    result:=0
  else if (n = 1) OR (n = 2) then
    result:=1
  else
    result:=Fibbonschi(n-1)+Fibbonschi(n-2)
end;

begin
  writeln('Vvedite n');
  readln(n);
  writeln(Fibbonschi(n));
  readln();
end.

Задача 8

Задать двумерный массив размерностью m на n (MxN) элементов (m и n вынести в область определения констант), заполнить его случайными значениями и вывести их на экран уже после того, как весь массив будет заполнен (т.е. заполнять и выводить в разных группах циклов).

Задача 7

Задать массив из 7-ми элементов, заполнить его случайными значениями в одном цикле, а в другом цикле вывести эти значения на экран.

<?php
function fillingArray($N, &$arr)
{
    for ($i = 0; $i < $N; $i++){
        $arr[$i] = rand(-100, 100);
    }
}
fillingArray(7, $arr);
foreach ($arr as $value){
    echo "$value <br>";
}

Задача 6

Дано некоторое число длиной от 1 до 5 символов, вывести все его "нечётные" цифры в обратном порядке (аналогично предыдущей задаче), если же таких цифр не найдёт, вывести сообщение "Нечетных цифр не обнаружено!"

Задача 5

Дано некоторое число длиной от 1 до 5 цифр - вывести его цифры в обратном порядке.
Например: