Спасибо чуваки... Чутарик меня разозлили...
Правда Котов не помог
, но сам допетрил вот до этого алгоритма
:
var n,p,i,j,k:longint;
procedure prost;
begin j:=0;
for i:=1 to n do begin
if n mod i = 0 then j:=j+1;
if j>2 then break;
end;
if j=2 then write(i:10);
end;
begin
write('Vvedi granicu diapazona: '); readln(k);
for n:=1 to k do prost;
readln;
end.
Критикуйте, если есть что???!!!!
И вот вам интересная олимпиадная задачка:
«Интернет–магазин».
Входной файл: shop.in
Выходной файл: shop.out
В базе данных (далее – БД) Интернет–магазина содержится информация о K приобретенных товарах. Злоумышленник, взломав БД, получил возможность поменять местами между собой:
• содержимое полей с данными о цене товаров;
• содержимое полей с данными о количестве приобретенных единиц товара.
В результате этих действий Интернет–магазин может понести убыток по общей стоимости товаров, который определяется разностью между исходной стоимостью приобретенных товаров в неповрежденной БД и их стоимостью после действий злоумышленника.
Определить наибольший убыток по общей стоимости товаров, который может принести злоумышленник владельцам магазина.
Формат входных данных.
Входной файл shop.in содержит К+1 строк. В первой строке находится число K. В каждой из остальных K строк записаны два действительных числа a и b – соответственно цена за единицу и количество приобретенного товара до действий злоумышленника.
Ограничения.
1 ? K ? 1000
0.00 < a ? 1000000.00
0.00 < b ? 1000000.00
Числа a и b содержат не более двух разрядов после десятичной точки.
Формат выходных данных:
Выходной файл shop.out должен содержать одну строку с искомым количеством убытка по общей стоимости товаров с точностью до четырех разрядов после десятичной точки.
Пример файла входных данных:
4
2 2.5
3.5 4
1 2
2.5 5
Пример файла выходных данных (для приведенного выше входного файла):
7.2500
: 2 Далее» Все Вниз