program
esep5;
var
n:integer;
begin
writeln(‘san
engiz’,’n');
readln(n);
if
(n mod 3=0) then writeln('yes')
else writeln('no');
<span>end.</span>
Прошу прощения что на листе, надеюсь, всё будет понятно
Объяснение:
Данная работа представляет собой изучение понятия информационные перегрузки, причины, методы борьбы и профилактики информационных перегрузок. В работе также приводится систематизация результатов исследования проблемы, содержащихся в научной литературе и в интернете. Работа носит исследовательский характер, имеет четкое оформление. Содержание реферата опирается на материал учебной программы и вместе с тем содержит элемент более глубокого изучения данной темы
Использована формула
var
f, i: longint;
begin
f := 1;
i := 2;
while f < 3669972 do
begin
f := 2 * (f + i);
i := i + 1
end;
Writeln('m=',i)
end.
Результат выполнения программы:
m=21
По второй задаче 8+6=14