Введите с клавиатуры три числа и выведите их в строку в центре экрана: самое большое число зелёным цветом, самое маленькое число красным цветом, среднее по величине – синим цветом.
var i,j,n:longint; f:boolean; begin writeln('Введите число'); readln(n); if n<2 then writeln('Простых делителей нет') else begin write('Число ',n,' ','= 1'); for i:=2 to n do if n mod i=0 then begin f:=true; j:=2; while f and(j<=round(sqrt(i/2)))do begin if i mod j=0 then f:=false else j:=j+1; end; if f then write('*',i); end; end; end.
Алгоpитм — точное и понятное пpедписание исполнителю совеpшить последовательность действий, направленных на решение поставленной задачи.
Основные свойства алгоритмов:
Понятность для исполнителя Дискpетность (прерывность, раздельность) — алгоpитм должен пpедставлять пpоцесс pешения задачи как последовательное выполнение пpостых (или pанее опpеделенных) шагов (этапов). Опpеделенность — каждое пpавило алгоpитма должно быть четким, однозначным и не оставлять места для пpоизвола. Pезультативность — это свойство состоит в том, что алгоpитм должен пpиводить к pешению задачи за конечное число шагов. Массовость. Алгоpитм pешения задачи pазpабатывается в общем виде. Формы представления алгоритмов.
• словесная (записи на естественном языке); • графическая (изображения из графических символов); • псевдокоды (полуформализованные описания алгоритмов на условном алгоритмическом языке; • программная (тексты на языках программирования).
Словесный записи алгоритмов представляет собой описание последовательных этапов обработки данных.
Program Min_Max;
uses crt;
var a:array[1..3] of integer;
i,min,max:integer;
begin
Textcolor (12);
For i:=1 to 3 do
Begin
A[i]:=random(100);
Write(A[i]:4);
End;
Writeln;
min:=a[1];
for i:=1 to 3 do
begin
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;
write(' ');
for i:=1 to 3 do
begin
if a[i]=max then
Begin
textcolor(12);
write(max:3);
End;
if a[i]=min then
Begin
textcolor(9);
write(min:3);
End;
if (a[i]<>min) and (A[i]<>max) then
Begin
textcolor(14);
write(A[i]:3);
End;
End;
readln;
end.
Объяснение: