fkn+antitotal

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

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

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

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

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

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

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

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

1) С помощью двух циклов:

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

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

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

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var
  i:integer;
begin
  i:=1;
  while (i <= 15) do
  begin
   writeln('Vvedite chislo: ');
   readln(i);
   i:=i + 7;
   writeln(i,' ');
    if (i > 15) then
     break;
  end;
  readln();
end.   

Урок 10.1 задача 5

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i:integer;
begin
for i:=35 to 117 do
    begin
    if ((i>=35) and (i<=117) and (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. 

Урок 10.1 задача 4

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i:integer;
begin
for i:=35 to 117 do
    if ((i mod 2=1) and (i mod 3=0)) then
       write(i, ' ');
    readln();
end.                      

Урок 10.1 задача 3

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i, numb:integer;
begin
  write('Vvedite chislo: '); readln(numb);
  if (numb>100)then
    for i:=numb downto 1 do
        write(i, ' ')
  else
    for i:=1 to numb do
        write(i,' ');
    readln();
end.