fkn+antitotal

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

Выведите хвост котика:

\    /\ 
 )  ( *)
 (  /  )
  \(__)|

с помощью отдельных символов (символьных литералов), а всё остальное как угодно.

begin
  writeln(' ','\','    ','/\');
  writeln(' ',' ',')','  ','( *)');
  writeln(' ',' ','(','  /  )');
  writeln(' ',' ',' ','\','(__)|');
  readln;
end. 

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

 \    /\
  )  ( *)
  (  /  )
   \(__)|

Если кодовая база незнакома и файл большой хочется быстро попасть на место последнего редактирования.

Как это сделать в конкретном файле непонятно, но "переходить" по последним отредактированным строкам (в т.ч. между файлами) в обратном по времени направлении можно с помощью комбинации горячих клавиш:

Ctrl+Shift+Backspace

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

1. С использованием логической операции and.
2. С вложенными блоками (без and, все операторы if должны быть в полной форме).
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

1 вариант:

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

Пользователь вводит два числа, найдите из них максимальное.

var a,b:integer;
begin
  writeln('Vvedite pervoe chislo: ');
  readln(a);
  writeln('Vvedite vtoroe chislo: ');
  readln(b);
  if a>b then
    writeln(a,' - maksimalnoe chislo')
  else
    writeln(b,' - maksimalnoe chislo');
  readln();
end.    

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

Vvedite pervoe chislo:
17
Vvedite vtoroe chislo:
3
17 - maksimalnoe chislo

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var a,b,c:integer;
begin
  writeln('Vvedite chislo A: ');
  readln(a);
  writeln('Vvedite chislo B: ');
  readln(b);
  writeln('Vvedite chislo C: ');
  readln(c);
  if ((a>17)and(b>17)and(c>7)) then
    writeln('DA')
  else
    writeln('NET');
  readln();
end.

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

Задача 2. Урок 10.2.

В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
1. Можно было бы задать угадываемое число (пусть его вводит пользователь)
2. Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var a,b,c:integer;
begin
  writeln('Vvedite chislo A: ');
  readln(a);
  writeln('Vvedite chislo B: ');
  readln(b);
  writeln('Vvedite chislo C: ');
  readln(c);
  if ((a>b)and(a<c))or((a<b)and(a>c)) then
    writeln('DA')
  else
    writeln('NET');
  readln();
end.

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

Задача 1. Урок 10.2.

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

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

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

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a,b:integer;
begin
  writeln('Vvedite dva chisla: ');
  readln(a,b);
  if a>b then
    writeln('12')
  else
    writeln('888');
  readln();
end.  

Вывод консоли.
Если первое число больше второго:

Vvedite dva chisla:
8 3
12

Иначе:

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

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

var a, b, c: integer;
begin
  readln(a,b,c);
  if (a>b) and (a<c) then
    writeln(a)
  else if (c>b) and (c<a) then
    writeln(c)
  else
    writeln(b);
  readln();
end.