1. Найти наименьшее из трех введенных с клавиатуры чисел
2. Дано целое число N(>0) С операции деления нацело и взятия остатка от деления определить имеется ли в записи числа N цифра 2 если имеется то вывести True если нет то вывести False
нужно сделать с объяснением
1) Два варианта (для ввода всех сразу или по одному):
1.1 По одному числу:
var
a,b:integer;
begin
readln(a);
b:=a;
readln(a);
if b>a then b:=a;
readln(a);
if b>a then b:=a;
writeln('min:',b);
end.
1.2 Все сразу:
var
a,b,c:integer;
begin
readln(a,b,c);
if a<=b then
if a<c then
writeln(a)
else writeln(c)
else
if b<c then
writeln(b)
else
writeln(c);
end.
2)
var
a:integer;
flag:boolean;
begin
flag:=false;
readln(a);
while a<>0 do
begin
if a mod 10 = 2 then
flag:=true;
a:=a div 10;
end;
writeln(flag);
end.