fkn+antitotal

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

Пользователь вводит число, определите делится ли оно на 4

Решение:

var a, b: integer;
begin
  writeln('insert number');
  readln(a);
  if(a mod 4 = 0) then
    writeln(a ,' delitsya na 4')
  else
    writeln(a ,' ne delitsya na 4');
  readln();
end.

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

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

Решение:

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

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

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

Решение:

var a,i:integer;
begin
for i:= 35 to 117 do
    if ((i>= 35) AND (i<= 117) AND ((i mod 3)=0)) OR ((i>=45) AND (i<=99) AND ((i mod 2)=1)) then
      writeln(i);
readln();
end.

Задача 8 Урок 10.1

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

Решение:

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

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

Решение:

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

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

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

Решение:

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

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

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

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

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

var i:integer;
begin

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

  readln();
end.

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

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

Решение:

var a,b,i: integer;
begin
  writeln('insert 2 numbers');
  readln(a,b);
  if (a>b) then
    for i:=b to a do
      writeln(i,'')
  else
    for i:=b downto a do
      writeln(i,'');
  readln();
end.

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

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

Решение:

var a,i: integer;
begin
  for i:=35 to 64 do
    writeln(i,'');
  readln();
end.