Var
a,b,c:integer;
procedure main(a,b,c:integer);
var
i,max,nod:integer;
begin
if (a>b) and (a>c) then
max:=a
else
if (b>a) and (b>c) then
max:=b
else
max:=c;
nod:=1;
for i:=1 to max do
begin
if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then
nod:=i;
end;
writeln(nod);
end;
begin
read(a,b,c);
main(a,b,c);
end.
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
Словесная форма алгоритма:
<u>начало</u>
<u>введите</u> Х
<u>если</u> Х>10 <u>тогда</u>
Х=Х+2
<u>иначе</u>
Х=Х*10
<u>напечатать</u> Х
<u>конец</u>
<span>Отметьте объекты классной комнаты:
Ответы:
1) </span><span>рабочий стол
2) окно
</span><span>3) компьютер
Объяснение:
Так как
Файла быть не может, и папки то же.</span>