Решение задач из главы 10.1

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

var i:integer;
begin
  for i := 35 to 64 do
    if(((i mod 2) = 0)) then
    writeln(i);
end. 
2. Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.
var i, a:integer;
begin
  writeln('Input integer');
  readln(i);
  if(i > 1) then
    for a := i downto 1 do
      if((i mod 5) = 0) then
        writeln(a)
    else
      writeln('Error');
end. 
3. Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
var i, a:integer;
begin
  writeln('Input integer');
  readln(i);
  if(i >= 100) then
    begin
    for a := i downto 1 do
        writeln(a);
    end;

  if(i < 100) then
    for a := i downto 1 do
      writeln(a) 
  else
    writeln('Error');
end. 
4. Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.
var i:integer;
begin
  for i := 35 to 117 do
    if((i mod 3) = 0) then
      write(i, ' ');
end.
5. Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer;
begin
  for i := 35 to 117 do
    if((i mod 2) = 0) then
      write(i, ' ')
  else if ((i >= 45) AND (i <= 99)  AND ((i mod 2) = 1) )then
    writeln(i);
end.
6. Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer;
begin
  for i := 35 to 117 do
    if(i >= 35) then
      write(i, ' ')
    else if ((i >= 45) AND (i <= 99)  AND ((i mod 2) = 1) ) then
      writeln(i, ' ');
end.
7. Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i, a:integer;
begin
  for i := 1 to 100 do 
    if((i mod 7) = 0) then
      write(i, ' ');
end.
vedro-compota's picture

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

_____________
матфак вгу и остальная классика =)

Я только за. Спасибо

vedro-compota's picture

задача 4:

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

-- будет выведено число 36? (это при том, что оно четное)

_____________
матфак вгу и остальная классика =)

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

--- здесь можно без else попробывать

Да можно и так.