Паскаль, цикл с предусловием while. вводится целое положительное число. найти наименьшую нечетную цифру в числе. если в числе нет нечетных цифр, то вывести надпись "в числе нет нечетных цифр"
Var min, n, r, m:integer; begin writeln('Введите целое положительное число'); read(n); min := 10; r := 1; while r <> 0 do begin m := n mod 10; if (m < min) and (m mod 2 = 1) then min := m; r := n div 10; n := r; end; if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min) end.
Не знаю, что за автоматизация, но запрос на выборку выглядит так: SELECT * FROM my_table или же запрос на выборку с условием SELECT * FROM my_table WHERE name="kek2255" при этом еще можно использовать операторы AND(И) и OR(ИЛИ) SELECT * FROM my_table WHERE name="Иван" AND first_name="Иванов" SELECT * FROM my_table WHERE name="Иван" OR name="Дмитрий" и понятное дело их можно комбинировать SELECT * FROM my_table WHERE (name="Иван" AND first_name="Иванов") OR (name="Дмитрий" AND first_name="Дмитриев") Можно выполнять запрос из нескольких таболиц SELECT t1.*, t2.* FROM my_table AS t1, my_table2 AS t2 WHERE t1.id = t2.id_ref
Здесь: SELECT - Сам оператор выборки * - это поля выборки, в данном случае все поля(*) -звездочка это значит все поля, но можно просто перечислить id, name, first_name и т.д. При выборе из 2-х и более таблиц указываются префиксы таблицы - это может быть как полное название таблицы(my_table.id) или псевдоним, которое мы указали (FROM my_table AS t1) t1 - будет псевдонимом и выбррка полей будет таким (t1.id, t1.name ...) FROM - Обязательное ключевое слово(оператор) означает ИЗ(from) WHERE - Не обязательный оператор условия (ГДЕ) Если перевести запрос на русский язык, то будет как в 1С:) ВЫБРАТЬ * ИЗ моя_таблица ГДЕ Имя = "Иван" Надеюсь
Var max1,max2,min1,min2,i:integer; ar:array[1..n] of integer; begin max1:=integer.MinValue; max2:=integer.MinValue; min1:=integer.MaxValue; min2:=integer.MaxValue; for i:=1 to n do begin readln(ar[i]); if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else if ar[i]>max1 then begin max2:=max1; max1:=ar[i]; end; if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else if ar[i]<min1 then begin max2:=max1; min1:=ar[i]; end; end; writeln('Сумма максимумов:',max1+max2); writeln('Cумма минимумов:',min1+min2); end.
Пример ввода: 1 2 3 4 5 Пример вывода: Сумма максимумов:9 Cумма минимумов:3
begin
writeln('Введите целое положительное число');
read(n);
min := 10;
r := 1;
while r <> 0 do
begin
m := n mod 10;
if (m < min) and (m mod 2 = 1) then min := m;
r := n div 10;
n := r;
end;
if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min)
end.