fkn+antitotal

Урок 11 (Решеннные задачи)

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

Урок 10.2 (Решенная задача)

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

var i: integer;
begin
  for i:= 1 to 10 do
    if (i [знакнеравенства] 5) then
     begin
          writeln(777);
          break;
     end
    else
     break;
end.

Урок 10.1 (Решенные задачи)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

program Project3;
var i, a:integer;
begin
  writeln('Vvedite zeloe chislo:');
  read(a);
  if (a > 100) then
     for i:= a downto 1 do
         write(i, ' ')
  else
      for i:= 1 to a do
          write(i, ' ');
  readln();readln();
end.

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

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

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

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

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

  readln();
end.