Вот вариант если надо найти среднее арифметическое из n нечётных чисел начиная от единицы.
На паскале:
program test;
var total:real; i, n:integer;
begin
write('Enter n: ');
readln(n);
total := 0;
write('(');
for i := 1 to (n + n) do
begin
if i mod 2 <> 0 then
begin
total := total + i;
write(i);
if i < (n + n - 1) then
write(' + ');
end;
end;
total := total / n;
writeln(') / ', n, ' = ', total:0:1);
readln();
end.
Работает примерно так:
Пользователь вводит количество нечётных чисел(например 5)
Дальше программа считает сумму первых пяти нечётных чисел начиная с единицы и одновременно выводит их
Дальше проиходит деление этой суммы на n(находится среднее) и вывод результата деления
Поисковые системы, (каталоги и метапоисковые системы) являются специализированными базами данных, в которых хранится информация о других сайтах Internet. Обычно поиск производится по словам и фразам, однако в некоторых «продвинутых» системах и каталогах можно составлять весьма сложные запросы на специальном языке.
Поисковые указатели - формируют уникальный список адресов web-страниц по каждому запросу конкретного пользователя. «Запрос — ответ»: Звучит довольно просто, но оказалось, что это крайне сложная задача — как для человека, который заказывает информацию, так и для поисковой системы, которая ее предлагает.
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
END.