fkn+antitotal

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

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

Решение:

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

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

var
i: integer;
begin
     i:=1;
     while(i<=15) do
     begin
      writeln('vvedite chislo');
      readln(i);
      writeln(i+7);
     end;
    writeln('End');
readln();
end

.

Консоль:

Урок 8 задача 6

Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:
""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".

program Project1;
var a,b,c,d: string;

begin
  writeln('Введи 4 строки через enter');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  writeln((a = c) and (a <> d) or (d = c));

  readln();
end.             

Консоль

Урок 8 задание 5

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

program Project1;
var n, v, y: string;

begin
  writeln('Введи 3 строчки');
  readln(n);
  readln(v);
  readln(y);
  writeln(n + v + '12' + y);
  readln();
end.          

Урок 8 задание 4

Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.

program Project1;
var a,b,c,d,e,w: string;

begin
  writeln('Введите 5 строк через enter');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  readln(e);
  w := a + b + c + d + e;
  writeln('Получим:', w)
  readln();
end.              

Урок 8 задание 3

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

program Project1;
var a,b,c,d,e: string;

begin
  c := 'ментос';
  write(c);

 readln();
end.         

Консоль

ментос

Урок 6 задача 14

пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом (одновременно второе меньше четвертого).

program Project1;
var
a,b,c,d:integer;
n:boolean;

begin
   write('Введи числа через Enter A, B, C, D: ');
   read(a, b, c, d);
   readln();
   n:=(A > C) and (B < D);
   writeln('Ответ =  ', n);
   readln();
end.  

Консоль

Введи числа через Enter A, B, C, D: 54
45
65
23
Ответ =  FALSE

Урок 6 задача 13

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

program Project1;
var;
a, b, c:integer;
n:boolean;

begin
  writeln('Введи числа A, B, C= ');
  readln(a, b, c);
  readln();
  n:=(A > 17) and ( B > 17) and (C > 17);
  writeln('Результат' , '(A > 17) and (B > 17) and (C > 17)  =  ',n);
  end.       

Извлекать данные можно с точностью до микросекунд, см. документацию по timestapmz

Извлечение в формате по умолачанию:

SELECT  "scenario_details"."date_updated" 
 FROM "scenario_details" LIMIT 3;

Извлечение с указанием формата:

SELECT 
to_char("scenario_details"."date_updated", 'YYYY-MM_DD HH24:MI:SS:US') 
 FROM "scenario_details" LIMIT 3;

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

Что это такое

До этого мы с вами рассматривали синтаксис различных SQL-запросов, работающих с данными в базе. К примеру, запрос SELECT извлекает наборы строк, соответствующих установленным условиям. Эти наборы могут иметь ноль, одну и более строк. И они называются результирующими.

Результирующий набор

Результирующий набор - это все строки, выбранные в результате SQL-запроса.