Если тебе программу нужно написать, то скажи на каком языке то
var
a,b,i:integer;
s:longint;
begin
repeat
write('Vvedite chisla a,b=');
readln(a,b);
until a<b;
s:=0;
for i:=a to b do
inc(s,sqr(i));
writeln('Summa kvadratov=',s);
end.
2.
var a,b,s:integer;
begin
readln(a,b);
s:=a*b;
writeln(s);
end.
3.
var b,c,sum:integer;
begin
readln(b,c);
sum:=(b+c)*10;
writeln(sum);
end.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
Объяснение:
Данная работа представляет собой изучение понятия информационные перегрузки, причины, методы борьбы и профилактики информационных перегрузок. В работе также приводится систематизация результатов исследования проблемы, содержащихся в научной литературе и в интернете. Работа носит исследовательский характер, имеет четкое оформление. Содержание реферата опирается на материал учебной программы и вместе с тем содержит элемент более глубокого изучения данной темы