Современный человек живет, информацией, постоянно выискивая для себя новое и новое, не представляя своё существование без неё. Но информационное изобилие было не всегда. Чем дальше вглубь веков, тем меньше информации, которой пользовался человек, темслабее насыщенность ею общественных структур. Если обратиться к истории человечества, то можно увидеть, что первоначально носителем информации стала устная речь. Ввиду своей территориальной привязки, человек был ограничен в притоке свежих сведений об окружающем мире, ограничиваясь сведениями в малом радиусе общения. Затем появилась письменность и первые книги, которые позволяли копить информацию и передавать её от одного индивида другому.
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.
Я могу помочь
vk com/egor_qb
Фото нет.
Вот моё старое решение с решетом Эратосфена.
https://pastebin.com/KqUn47Hn