fkn+antitotal

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

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

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

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

 var a: integer;
begin
      a := 1;
      while a <= 15 do

      begin
          write('vvedite celoe chislo: ');
          readln(a);
          writeln('otvet: ', a + 7);
      end;

      writeln('Poka!');
      readln();
end.  

КОНСОЛЬ:

[к оглавлению]

Что это такое

Представления - это виртуальные таблицы, строящиеся "на лету". Представления не содержат в себе данные, как обычные таблицы, а хранят запросы, которые эти данные извлекают.

Синтаксис создания представлений во всех основных СУБД одинаков, но есть особенности:

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

var a, b: integer;
begin
    writeln('vvedite cislo A');
    readln(a);
    writeln('vvedite cislo B');
    readln(b);
    writeln('macsimalnoe chislo ');
    if a > b   then
      writeln(a)
    else
      writeln(b);
    readln();
end.   

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

var
  a, b,c: integer;
begin
  write('Vvedite tri chicla: ');
  readln(b, a, c);
  if (A>17) AND (B>17) AND (C>7) then
  writeln('da')
  else
  writeln('net');
  readln();
 end.     

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

var
  a, b,c: integer;
begin
  write('Vvedite tri chicla: ');
  readln(b, a, c);
  if ((A>C) AND (B>A)) OR ((C>A) AND (A>B))then
  writeln('da')
  else
  writeln('net');
  readln();
 end.   

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

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

Можно запустить и почувствовать разницу

<?php

class A {
    public function __construct(
        public int $a
            ) {
    }
}

class B {
    public function __construct(
        public int $a
            ) {
    }
}

$a = new A(123);

function tst1($obj) {
    $obj = new B(333);
}

function tst2(&$obj) {
    $obj = new B(333);
}

tst1($a);
print_r($a);
tst2($a);
print_r($a);

-- дело в том что:

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

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