fkn+antitotal

Если файл без расширения (или еще какой-то) не открывается как текстовый, то можно попробовать следующее:

Задание 12 Урок 11

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

program Hello;
var a,b,c : integer;
begin
  a:=15;
  b:=a div 10;
  c:=a mod 10;
  writeln ('pervaya ',b,' vtoray ',c);
end.

Консоль:

pervaya 1 vtoray 5

program Hello;
var a,b1,b2,b3,i : integer;
begin
i:=0;
begin
  while (i<>3) do
  begin
  writeln ('vvedite chislo');
  readln(a);
    begin
    if (a<0) and (a mod 2 = -1) then
      begin
      i:=i+1;
      if i=1 then
      b1:=a
      else if i=2 then
      b2:= a
      else if i=3 then
      b3:=a;
      writeln();
   
 end;
 end;
 end;
 end;
 writeln(b1+b2+b3);
end.

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

Задана последовательность символов, имеющая следующий вид: p1q1p2q2p3...qn–1pn, где pi — цифра, а qi — знак арифметического действия из набора {+, –, *}. Вычислите значение выражения, предполагая, что действия выполняются согласно правилам арифметики в один проход цикла

Задание 11 Урок 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

program Hello;
var i : integer;
begin
  i:= 4;
  while i<100 do
  begin 
    write(i,' ');
    i:=i+4
  end;
readln();
end.

Консоль:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 

Задание 8 Урок 11

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

var a, b, c, d: string;
  begin
    writeln('>>>Привет! Вы дома, пойдем в лес или в центр города?');
    readln(a);
    if (a = 'в лес') then
    begin
      writeln('>>> вы в лесу');
      writeln('>>> будем жечь костер/кататься на лыжах');
      readln(b);
      if (b = 'кататься на лыжах') then
        writeln('>>> будем кататься по кругу/с гор');
        readln(c);
        if (c = 'по кругу')then
          writeln ('>>>медленно но безопасно')
        else

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

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

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

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

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

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:

сумма баллов Коли и Миши больше 20

или произведение баллов Пети и Миши меньше 55

--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.