fkn+antitotal

Урок 10.1 Задание 1

Выведите на экран, все числа N единиц (число задает пользователь)

program Pr10_1_1;

var i:integer;

begin
writeln('Введите число: ');
readln(i);

for i:=1 to i do
    write(1);

readln();
end.                     

Консоль:

Введите число:
10
1111111111

Урок №10 Задание 2

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

Урок №10 Задание 1

Пользователь вводит число, определите делится ли оно на 4

program Pr10_1;

var a:integer;

begin

  writeln('Введите число: ');
  readln(a);
  if (a mod 4 = 0) then writeln('Да') else writeln('Нет');

  readln();

end.             

Консоль:

Введите число:
3
Нет

Консультации

Очередная консультация назначается, если заранее присланы вопросы - в ней могут участвовать участники любого уровня обучения (в отличии от практики).
Часто консультации проходят в дискорде.
Консультация может проходить как отдельно, так и во время практики (опять же - если есть вопросы)

Урок №9 Задание 16

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

Урок №9 Задание 15

У вас есть код который сообщает пользователю, что число не равно нулю, если это действительно так, или в обратной ситуации не делает вообще ничего

program Pr9_15;

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f<>0 then writeln('Не равно 0!');
  readln();
end.               

Консоль:

Введите число : 1
Не равно 0!

Урок №9 Задание 14

блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

program Pr9_14;

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;

  if f then t:=1
  else      t:=2;

  if not b then s:=3
  else          s:=4;
end.                   

Урок №9 Задание 13

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

Урок №9 Задание 12

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

Урок №9 Задача 11

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