fkn+antitotal

link

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

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, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

link

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

link

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

program lesson9_8;
var
  k, n, d: integer;
begin
  k := 10;
  n := 10;
  d := 6;

  if (k + n > 20) or (d * n < 55) then
      writeln('nichya')
  else
      writeln('Kolya winner');
  readln();
end. 

http://fkn.ktu10.com/?q=node/7341

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

http://fkn.ktu10.com/?q=node/7341

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  i := 35;
  while((i >= 35) and (i <= 117)) do
  begin
  if(((i mod 3) = 0) and ((i mod 2) = 0)) then
    writeln(i);
    i := i + 1;
  end;
  readln();
end.

http://fkn.ktu10.com/?q=node/7341

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

http://fkn.ktu10.com/?q=node/7341

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

var i: integer;
begin
  i := 1;
  while(i < 15) do
      begin
      writeln('vvedi celoe chislo:');
      readln(i);
      if(i < 15) then
      writeln(i + 7)
      end;
  writeln('bb');
  readln();
end.  

http://fkn.ktu10.com/?q=node/8783

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

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

http://fkn.ktu10.com/?q=node/8612

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

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

http://fkn.ktu10.com/?q=node/8612

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

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