Постройте блок-схемы или запишите алгоритмы на алгоритмическом языке:
найти наименьшее общее кратное двух чисел а и в. найти сумму первых n четных натуральных чисел. последовательность вводится n целых чисел. найти среднее арифметическое этих чисел.
program z1; var n,m:integer; rost,nine_a,nine_b:real; begin write('Введите количество учинеков 9а класса: '); readln(n); write('Введите количество учинеков 9б класса: '); readln(m); writeln('Вводите рост каждого из учинеков 9а по очереди'); for i:integer :=1 to n do begin write(i,': '); read(rost); nine_a:=nine_a+rost; end; nine_a:=nine_a/n; // средний рост 9а writeln('Вводите рост каждого из учинеков 9б по очереди'); for i:integer :=1 to m do begin write(i,': '); read(rost); nine_b:=nine_b+rost;end; nine_b:=nine_b/n; // средний рост 9б if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.'); end.
Начнем... Я люблю сидеть в интернете, общаться по Skype, и просиживать в соц.сетях, а также сидеть на различных сайтах( пкречислите какие). Однако интернет - не только огромное количевство информации, но и куча вирусов, всплывающих окон которые подталкивают к суициду, прекращение есть пищи, насилие, порнография и многое другое. Обычным пользователям на легко жить таким образом. Более опытные ставят на браузера специальные плагины, с которых можно избавиться хотя-бы от рекламы. Но куча других опасностей как спам. Например подруга отправила ссылку на сайт, открыв предлагается ввести номер, после чего с вашего счета снимается 300 рублей. Однако можно защититься от всего этого, ставя антивирусы. Но у антивирусов есть огромный недостаток, так сказать защита от вирусов мадам, а в замен скорость вашего компьютера. Естественно что антишманти вам хотя не всегда, но например на слабых компьютерах это слишком замедлит работу. Особенно если вы решили купить недорогой ноутбук например, и решили что он будет для работы, там важные документы, поэтому ставлю антивирус. В итоге получив защиту от вирусов, вы взамен отдаете производительность. Интернет может быть безопасным, однако лучше предостеречься и поставить антивирус.
var n,m:integer;
rost,nine_a,nine_b:real;
begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.
как-то так, будут вопросы пиши)
Всего-то 30 мин