fkn+antitotal

Урок 8.2 Задачи 1 и 2

Задача 1

Есть код:

var a: integer;
begin
writeln('vvedite celoe chislo');
readln(a);

readln();
end.
Если он отфроматирован неправильно - исправьте это, и объясните для себя почему нужно исправить именно так.

Решение:

var a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);

  readln();
end.   

Задача 2

Есть код:

Задача 15 Урок 9:

У вас есть три числа (три переменные) найдите их медиану

Решение:

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 100) then
     for i:=a downto 1 do
       write(i, ' ')
  else
     for i:=1 to a do
       write(i, ' ');

  readln();
end.  

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

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 1) then
     for i:=a downto 1 do
       if ((i mod 5) = 0) then
         write(i, ' ')
  else
     writeln('oshibka! vashe chislo ne > 1.');

  readln();
end.       

Выведите на экран, все четные числа от 35 до 64.

var i:integer;
begin

  for i:=35 to 64 do  // i пройдёт значения от 35 до 64
    if ((i mod 2) = 0) then  // если очередное значение счётчика делится на 2 без остатка
       write(i, ' ');

  readln();
end.      

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:

Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5

var i,a,b:integer;
begin
  writeln('Vvedite A: ');
  readln (a);
  writeln('Vvedite B: ');
  readln (b);

  for i:=a to b do
    write(i, ' '); // выводим значения счетчика через пробел

  readln();
end.           

Выведите на экран, все числа от 35 до 64.

var i:integer;
begin

  for i:=35 to 64 do
    write(i, ' '); // выводим значения счетчика через пробел

  readln();
end.         

В этом уроке рассмотрим самый простой случай форматирования - форматирование кода на первом уровне вложенности в теле программы.

В предыдущих урока мы уже писали код, например:

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

В примерах выше мы выводили на экран робота, выведите его же, но антенну (для которой используется точка с запятой) выведите отдельной командой как символьный литерал, всё же остальное любым способом.

begin
  write('   ');
  write(';');
  writeln('   ');
  writeln('  ["]');
  writeln(' /[_]\');
  writeln('  ] [');
  readln();
end. 
 

Вывод консоли:

   ;
  ["]
 /[_]\
  ] [

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

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