Головна » Статті » Олімпіада » Роботи учнів

Відповідь до задачі "Ціна"
uses crt;
var mas:array[1..10000] of integer;
f1,f2:text;
c,i,t,kt,n,m,a,b,s:integer;
begin
clrscr;
assign(f1,'task1.dat');
assign(f2,'task1.rez');
reset(f1);
rewrite(f2);
read(f1,kt);

for t:=1 to kt do
begin
read(f1,m,n,a,b);
mas[1]:=a;
for i:=2 to m do
mas[i]:=mas[i-1]-b;

for i:=1 to m do
if mas[i]>0 then s:=s+mas[i];

s:=s*n;
writeln(f2,s);
writeln(f2); s:=0;
end;

close(f1);
close(f2);
readkey;
end.
Категорія: Роботи учнів | Додав: Serg (10.12.2014)
Переглядів: 119 | Рейтинг: 0.0/0
Всього коментарів: 0
Додавати коментарі можуть лише зареєстровані користувачі.
[ Реєстрація | Вхід ]
Підготовка до ЗНО
Школи Здолбунівщини
Це цікаво