Var
v, u, h, d, vp: longint;
begin
readln(v, u, h);
vp := v - u;
d := h div vp;
if (h mod vp <> 0) then
inc(d);
writeln(d);
end.
Ответ:
Подходящая? Я считаю что можно поставить до GTX 1060 3 GB или RX 580 4 GB. В YouTub'е много тестов показаны для этих видеокарт. GL
.bmp - растровое изображение
.htm - гиперссылка на страницу или текст
Var
i,x1,x2:integer;
y:real;
begin
writeln('введите х нач и х конечное');
readln(x1,x2);
writeln('введите шаг для х');
readln(i);
while x1<=x2 do
begin
if sin(x1)/Cos(x1)<>0 then
begin
y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));
writeln(x1:4,y:10:2);
end;
x1:=x1+i;
end;
end.