Забирай картинку, только фоткай лучше!
Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.
Если ты рассчитываешь произведение нужно писать не X=X*d,а P=X*D
4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk