Объяснение:
Выборка по всем записям:
Выбрать конкретные поля из таблиц, расположить их в требуемом порядке, задать сортировку по нескольким критериям.
Выборка с условием:
Для некоторых полей добавляется условие в виде некоторого критерия для выборки записей.
Запрос с параметрами:
Условие отбора указывается в запросе неявно и формируется в момент обращения к запросу.
Запрос с вычисляемыми полями:
В запросе формируются новые поля, не существующие ни в одной из таблиц. Значения этих полей вычисляются по формулам, описываемым в запросе.
program Z1;
var
ch, s: integer;
begin
writeln('введите последовательность натуральных чисел, оканчивающихся 0');
readln(ch);
s := 0;
while ch <> 0 do
begin
if odd(ch) and (ch mod 10 = 3) then
s := s + 1;
readln(ch);
end;
writeln('s = ', s);
end.
*****************************************************
var
max, ch: integer;
begin
writeln(' введите последовательность натуральных чисел, оканчивающихся 0');
readln(ch);
max := ch;
while ch <> 0 do
begin
if (ch > max) and (ch <> 0) then
max := ch;
readln(ch);
end;
writeln('max =', max);
end.
