fkn+antitotal

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

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

program lesson13_8;
var
    i, j : integer;
begin
    for i := 1 to 2 do
    begin
        for j := 1 to 5 do
            write(j, ' ');
        writeln();
	end;
	readln();
end.

import const javascript ReferenceError: Cannot access 'before initialization

Возможная причина

Возможной причиной может быть циклическая зависимость файлов (import), которую нужно исправить.

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

http://fkn.ktu10.com/?q=node/8539
Изучите код:

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, с сохранением той же логики работы программы.

Подсказки:

http://fkn.ktu10.com/?q=node/8539
Есть программа:

var z,s:integer;
  f:boolean;
begin
  s:=1;
  if (z=s) and (f=false) then
    begin
      writeln();// делаем перенос строки
      z:=0;
      s:=s+1;//но увеличиваем кол-во строк
    end;
 
  if (z=s) and (f=true) then
    begin
      writeln(); // делаем перенос строки
      z:=0;
      s:=s-1;//но уменьшаем кол-во строк
    end;
end.  

program Task_11;

Есть программа:

var m,s:integer;
begin
    writeln('Vvedite chislo M');
    readln(m);
    s:=1;
    if (s = 1) then
       writeln('soobchenie 1'); 
    if (s = m) then
        writeln('soobchenie 2'); 
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

var s:integer;
begin
    writeln('Vvedite chislo 1 ili 5');
    readln(s);
    if (s = 1) then
       writeln('soobchenie 1'); 
    if (s = 5) then
        writeln('soobchenie 2'); 
 
    readln();
end;

-- но сейчас код написан неоптимально и при каждом запуске выполняется 2 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.

http://fkn.ktu10.com/?q=node/8539
{Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований.}

http://fkn.ktu10.com/?q=node/8539
{Пользователь вводит четыре числа, найдите из них максимальное.}

{Пользователь вводит три числа, найдите из них максимальное}
program Task_6;

var a,b,c:integer; // переменные для хранения чисел которые будем сравнивать

// С использованием логической операции and.