delphi

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

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

решение задачи

var i:integer;
 begin
     for i := 1 to 100 do
       if ((i mod 7) = 0) then
          write( i, ' ');
     readln();
 end.

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

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

решение задачи

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

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

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

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

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

Выведите на экран, все нечетные числа, делящиеся на 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. 

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

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

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

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

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

Выведите на экран, все четные числа от 35 до 64

решение задачи

var i:integer;
begin
   for i := 35 to 64 do
      if(( i mod 2) = 0) then
      write(i ,' ');

   readln();
end.  

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

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

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

Изучите код:

var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;

if (f=true) then
t:=1
else
t:=2;

if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

Задача 11 Урок 9
Есть программа:

var z,s:integer;
f:boolean;
begin
s:=1;
if (z=s) and (f=false) then
begin
writeln();// делаем перенос строки
z:=0;
s:=s+1;//но увеличиваем кол-во строк
end;