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.
1 информатика
2блок
3хз
4материнка
5вирус
6бит
7плата
8хз
Алгоритм - это последовательность действий,строгое исполнение которой приводит к определенному результату
существует 3 основные алгоритмические конструкции: •Следование
<span>•Ветвление
</span><span>•<span>Повторение
1) </span></span>линейный алгоритм (следование) - это способ организации действий, при
котором команды (действия) следуют друг за другом, последовательно
2) Разветвляющийся
алгоритм (ветвление) - обеспечивает
в зависимости от результата проверки условия (да или нет<span>)
выбор одного из вариантов работы алгоритма</span>
3) Циклический
алгоритм (повторение) - о<span>беспечивает многократное выполнение
совокупности действий, которые называются телом цикла</span>
№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>
Var
x, y, r: real;
begin
read(x, y, r);
if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
or ((x < 0) and (y < 0) and (x + y >= -r)) then
write('да')
else
write('нет');
end.