fkn+antitotal

Задача 1 урок 10.2

Модифицируйте код:
-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
    if i=4 then 
     writeln(777);
    if i=5 then 
      break;
  end;
  readln();
end. 

Задача 7 урок 10.1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Задача 1 урок 10.1

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

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

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.     

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
  if(i=4) then write(777);
  if(i=5) then break;
  end;
  readln();
end.     

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

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

var a, b, c: integer;
begin
readln(a, b, c);
if ((a>b) and (a<c)) or ((a>c) and (a<b)) then 
  write(a);
if ((b>a) and (b<c)) or ((b>c) and (b<a)) then
  write (b)
else
  write (c);
end.