fkn+antitotal

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

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

var a,b,c:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c);
  if (a > 17) AND (b > 17) AND (c>7) then
    writeln('Da')
  else
    writeln('Net');
readln();
end.

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

Da or Net

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

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

var a,b,c:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c);
  if (a>b) AND (a<c) then
    writeln('Da')
  else
    writeln('Net');
readln();
end. 

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

'da' or 'net'

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

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

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

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

12 or 888 (if a

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

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

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

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке

program u11z13;
var
a,b:integer;

begin

 writeln('vvedite chislo');
 readln(a);
 while (a <> 0) do
 begin
  b:= a mod 10;
  a:= a div 10;
   write(b);
  end;
  readln();
end. 

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a,b:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b);
    if (a>b) then
      writeln('12');
  readln();
end.

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

12

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

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

program u11z12;
var a,b, i: integer;
begin
   i:=15;
   a:= i mod 7;
   b:= i div 3;
   writeln(a,' ',b);
  readln();
end.
                  

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

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

program u11z11;
var i: integer;
begin
  for i:= 4 to 100 do
  begin
   if (i mod 4 =0) then
   writeln(i);
  end;
  readln();
end.
         

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

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

Примечание 1: если вам нужно не просто временно откатиться, чтобы проверить старое состояния, а именно отменить изменения и отправить состояние как актуальную версию, то см. другие инструкции тут.

Примечание 2: получить хэш коммита можно с помощью git log

Откатываем все файлы к указанному коммиту

Для отката к указанному коммиту используем его хэш: