Урок 13.1 Задача 17

Урок 13.1 Задача 17

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

Урок 13.1 Задача 16

Урок 13.1 Задача 16

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

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

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

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

var
  n,m:real;
begin
  m:=1;

  while (m<=9) do
  begin
    n:=1;
    while (n<=9) do
      begin
        write(n/m);
        n:=n+1;
      end;
    writeln();
    m:=m+1;
  end;

  writeln('konec');
  readln();
end. 

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

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

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

M := 3;
N := 15;

получим

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

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

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

6
3

А для 8:

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

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

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var
  i:integer;
begin
  i:=1;
  while i<>0 do
  begin
    writeln('vvedite chislo: ');
    readln(i);
    if ((i mod 2)=0) then
      writeln('chislo chetnoe')
    else
      writeln('chislo nechetnoe');
  writeln();
  end;
  readln();
end.  

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

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

M раз выведете на экран числа от 1 до N с помощью вложенных циклов

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

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

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

M раз выведете на экран числа от 1 до N с помощью вложенных циклов.

var
  n,m,i,j:integer;
begin
  writeln('vvedite 2 chisla N i M: ');
  readln(n,m);
  while i<=n do
    begin
      j:=1;
      while j<=m do
        begin
          write(j, ' ');
          j:=j+1;
        end;
      writeln();
      i:=i+1;
    end;
    writeln();
  readln();
end.

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

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

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5
begin
  for i:= 1 to 2 do
  begin
    for j:=1 to 5 do
    begin
      write(j, ' ');
    end;
    writeln();
  end;


  writeln();
  writeln('<<Konec>>');
  readln();
end.

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

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

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

Pages

Subscribe to fkn+antitotal RSS