fkn+antitotal

Урок 15. Задача 4.

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

урок 13.1

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

var i:integer;
begin
 writeln('ведите целое чёное число');
 readln(i);
 if ((i mod 2 )=1) then
   writeln('ошибка!');
 while (i  mod 2 <1) do
   begin
    i:=i div 2;
    writeln(i);
   end;
 readln();
end.

урок 13.1

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

var i:integer;
begin
  i:=1;
  repeat
    writeln('ведите любое целое число: ');
    readln(i);
    if ((i mod 2)=0) then
      writeln('это чётное число !');
    if ((i mod 2)=1) then
      writeln('число не чётное !');

  until(i=0);
  readln();
end.
             

урок 13.1

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

урок 13.1

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

11......NN}M раз

program delal.gleb!;
var i,j,l:integer;
begin
  writeln('видите 2 любых числа через enter(целых) ');
  readln(i);
  readln(j);
  repeat
    for l:=1 to i do
      write(l,' ');
    writeln();
    j:=j-1;


  until(j=0) ;
  readln();
end.
              

урок 13.1

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

1 2 3 4 5
1 2 3 4 5

program Project1;
var
  i,j:integer;
begin
    for i:=1 to 5 do
      write(i,' ');
      writeln();
    for j:=1 to 5 do
      write(j,' ');


  readln();
end.

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

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

Решение:

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

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

Решение:

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

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

Решение:

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

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

var m, n, i, j : integer;
begin
  writeln('Введите число  M');
  readln(m);
  writeln('Введите число N');
  readln(n);
  for i := 1 to m do
    begin
      for j := 1 to n do
        write(j, ' ' );
        writeln();
    end;
  readln();
end.