Задача 15 урок 13.1

Задача 15 урок 13.1

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var i, j, m: integer;
begin
  m :=1; //множитель(счетчик) вложенного цикла
  for i := 1 to 9 do
    begin
      for j := 1 to 9 do
        begin
          writeln(j*m, '/', i, ' = ', (j*m) div i);
          if j = 9 then
            m := m+1;
        end;
    end;

   readln();
end.

Задача 14 урок 13.1

Задача 14 урок 13.1

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:

1x1 = 1
1x2 = 2
......
var i, j: integer;
begin
  for i := 1 to 10 do
    begin
      for j := 1 to 10 do
        writeln(i, 'x', j, ' = ', i*j);
      if j > 10 then

    end;

   readln();
end.   

Задача 14 урок 13.1

Задача 14 урок 13.1

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:

1x1 = 1
1x2 = 2
......
var i, j: integer;
begin
  for i := 1 to 9 do
    begin
      for j := 1 to 9 do
        writeln(i, 'x', j, ' = ', i*j);
      if j > 9 then

    end;

   readln();
end.   

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

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

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)

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

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

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

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

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

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

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

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 оставьте без изменений).

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

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

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

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

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

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

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

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

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

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

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

Pages

Subscribe to fkn+antitotal RSS