var a: integer;
begin
Randomize;
a := 100 + Random(900);
Writeln(a);
while (a > 0) and (a mod 2 = 0) do a := a div 10;
if a = 0 then
Write('да')
else
Write('нет')
end.
основное - скорость и точность
а дальше уже зависит от возможностей программы
например просмотр промежуточных результатов
выставление точности расчетов
задание алгоритма расчета любой сложности
быстрый перерасчет при изменении начальных данных
динамическое изменение результатов в зависимости от исменения условий
Var N:integer;
r1,r2,r3:byte;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(N);
r1:=N div 1000;
r2:=(N div 100) mod 10;
r3:=(N div 10) mod 10;
N:=N mod 10;
Write((r1<>r2)and(r1<>r3)and(r1<>N)and(r2<>r3)and(r2<>N)and(r3<>N))
End.
Var
a,b,c,y,rez:real;
begin
writeln ('Введите A B C через пробел');
readln(a, b, c);
if (a>b) and(a>c) then begin
y:=a;
writeln('y =',y:0:2);
end
else if (b>a) and (b>c) then begin
y:=b;
writeln('y= ',y:0:2);
end
else if (c>b) and(c>a) then begin
y:=c;
writeln('y =',y:0:2);
end
else if (a=b) and (a=c) then begin
y:=a;
writeln('y= ',y:0:2);
end;
end.