fkn+antitotal

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

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

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

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

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

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

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

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

var i: Integer;
begin
for i:=35 to 117 do 
   begin

    if ((i >= 35) AND (i <= 117) then
         write(i, ' ')
    else       
      if  ((i >= 45) AND (i <= 99) then 
          write(i, ' ');
    end
end.

Урок 10. Задача 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, ' ')  
end.

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

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

var i,a: Integer;
begin
readln(a);
if a>100 then
begin
    for i:=a downto 11 do
    write(i, ' ')
end else
begin
    for i:=a to 11 do
    write(i, ' ')
end;
end.

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

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

var i,a: Integer;
begin
readln(a);
if a>1 then
    for i:=a downto 1 do
    begin 
        if ((i mod 5) = 0) then
            write(i, ' ')
    end else
            write('ошибка') 
end.

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

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

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

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

У вас есть три числа (три переменные) найдите их медиану(link is external)

var a,b,c: integer;
begin
readln(a);
readln(b);
readln(c);
if ((a>b) and (c>a)) or ((b>a) and (a>c)) or ((a=b) and (a=c))then
    writeln(a);
if ((b>c) and (a>b)) or ((c>b) and (b>a)) then
    writeln(b);
if ((c>a) and (b>c)) or ((a>c) and (c>b)) then
    writeln(c);
end.   

консоль:

1
2
3
2

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

Изучите код:

Урок 9. Задача 11

Есть программа: